(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 8.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       157,          7]
NotebookDataLength[    325029,       9517]
NotebookOptionsPosition[    317395,       9262]
NotebookOutlinePosition[    317999,       9284]
CellTagsIndexPosition[    317956,       9281]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{
Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[CapitalGamma]", "[", "q_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"\[Xi]1", "[", "q", "]"}], ",", 
       RowBox[{"\[Xi]2", "[", "q", "]"}]}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Xi]1c", "[", 
        RowBox[{"-", "q"}], "]"}], ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"\[Xi]2c", "[", 
        RowBox[{"-", "q"}], "]"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}], 
  ";", 
  RowBox[{
   RowBox[{"T0", "[", "k_", "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], ",", 
       RowBox[{"v", "[", "k", "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"v", "[", "k", "]"}]}], ",", 
       RowBox[{"u", "[", "k", "]"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"\[Sigma]3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"1", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"-", "1"}]}], "}"}]}], "}"}]}], ";", 
  RowBox[{"\[Sigma]4", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"-", "1"}], ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"p4", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}]}], "}"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5123889139801807`*^9, 3.5123891254377832`*^9}, {
   3.513621403285828*^9, 3.513621432108691*^9}, 3.525375553704854*^9, {
   3.5253774037728453`*^9, 3.5253774515708227`*^9}, {3.525377587531567*^9, 
   3.525377587661817*^9}}],

Cell[BoxData[
 RowBox[{" ", 
  RowBox[{
   RowBox[{"uvcond", "=", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], "-", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], "\[Rule]", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], ",", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], "+", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], "\[Rule]", "1"}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], "^", "2"}], "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "+", 
          RowBox[{
           RowBox[{"\[Xi]", "[", "k", "]"}], "/", 
           RowBox[{"En", "[", "k", "]"}]}]}], ")"}], "/", "2"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"v", "[", "k", "]"}], "^", "2"}], "\[Rule]", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"1", "-", 
          RowBox[{
           RowBox[{"\[Xi]", "[", "k", "]"}], "/", 
           RowBox[{"En", "[", "k", "]"}]}]}], ")"}], "/", "2"}]}], ",", 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], "\[Rule]", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "[", "k", "]"}]}]]}]}], "}"}]}], ";"}]}]], "Input",
 CellChangeTimes->{{3.512950240145851*^9, 3.512950329077903*^9}, {
   3.5129503618643217`*^9, 3.512950382727455*^9}, 3.512950463707532*^9, 
   3.513004900847197*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"S1", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"T0", "[", "k", "]"}], "]"}], ".", 
     RowBox[{"\[CapitalGamma]", "[", "q", "]"}], ".", 
     RowBox[{"T0", "[", 
      RowBox[{"k", "+", "q"}], "]"}]}]}], ")"}], "//", 
  "MatrixForm"}]], "Input",
 CellChangeTimes->{{3.512389130174995*^9, 3.512389171292803*^9}, {
  3.5123894676335173`*^9, 3.5123894719454517`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "[", "k", "]"}]}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", "q", "]"}]}], "-", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", 
         RowBox[{"-", "q"}], "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", "q", "]"}]}], "-", 
       RowBox[{
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", 
         RowBox[{"-", "q"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]2", "[", "q", "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"v", "[", "k", "]"}]}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", "q", "]"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", 
         RowBox[{"-", "q"}], "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"\[Xi]1", "[", "q", "]"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", 
         RowBox[{"-", "q"}], "]"}]}]}], 
      RowBox[{
       RowBox[{"v", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]2", "[", "q", "]"}]}]},
     {
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"k", "+", "q"}], "]"}], " ", 
       RowBox[{"\[Xi]2c", "[", 
        RowBox[{"-", "q"}], "]"}]}], 
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"k", "+", "q"}], "]"}], " ", 
       RowBox[{"\[Xi]2c", "[", 
        RowBox[{"-", "q"}], "]"}]}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.512389159744293*^9, 3.512389171886397*^9}, 
   3.512389472593379*^9, 3.5124758492031603`*^9, 3.5129248019589033`*^9, 
   3.512953384962759*^9, 3.51300475121719*^9, 3.513620922687812*^9, 
   3.514026591608692*^9, 3.5253755943289413`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"S2", "=", 
    RowBox[{
     RowBox[{"Transpose", "[", 
      RowBox[{"T0", "[", 
       RowBox[{"k", "+", "q"}], "]"}], "]"}], ".", 
     RowBox[{"\[CapitalGamma]", "[", 
      RowBox[{"-", "q"}], "]"}], ".", 
     RowBox[{"T0", "[", "k", "]"}]}]}], ")"}], "//", "MatrixForm"}]], "Input",\

 CellChangeTimes->{{3.512389231887739*^9, 3.512389298527151*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "[", 
          RowBox[{"k", "+", "q"}], "]"}]}], " ", 
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"\[Xi]1", "[", 
         RowBox[{"-", "q"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", "q", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", 
         RowBox[{"-", "q"}], "]"}]}], "-", 
       RowBox[{
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", "q", "]"}]}]}], 
      RowBox[{
       RowBox[{"u", "[", 
        RowBox[{"k", "+", "q"}], "]"}], " ", 
       RowBox[{"\[Xi]2", "[", 
        RowBox[{"-", "q"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"v", "[", "k", "]"}]}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", 
         RowBox[{"-", "q"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", "q", "]"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"\[Xi]1", "[", 
         RowBox[{"-", "q"}], "]"}]}], "+", 
       RowBox[{
        RowBox[{"u", "[", 
         RowBox[{"k", "+", "q"}], "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}], " ", 
        RowBox[{"\[Xi]1c", "[", "q", "]"}]}]}], 
      RowBox[{
       RowBox[{"v", "[", 
        RowBox[{"k", "+", "q"}], "]"}], " ", 
       RowBox[{"\[Xi]2", "[", 
        RowBox[{"-", "q"}], "]"}]}]},
     {
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]2c", "[", "q", "]"}]}], 
      RowBox[{
       RowBox[{"v", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]2c", "[", "q", "]"}]}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.512389256842325*^9, 3.5123892994638653`*^9}, 
   3.51247585043707*^9, 3.512924803265833*^9, 3.5129533864759617`*^9, 
   3.5130047531959553`*^9, 3.5136209244121943`*^9, 3.514026592864829*^9, 
   3.525375596001585*^9}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g", "[", 
    RowBox[{"k_", ",", "w_", ",", "En_"}], "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"(", 
     RowBox[{"w", "-", 
      RowBox[{"En", "[", "k", "]"}]}], ")"}]}]}], ";", 
  RowBox[{
   RowBox[{"gi", "[", 
    RowBox[{"k_", ",", "wn_", ",", "En_"}], "]"}], ":=", 
   RowBox[{"1", "/", 
    RowBox[{"g", "[", 
     RowBox[{"k", ",", 
      RowBox[{"I", " ", "wn"}], ",", "En"}], "]"}]}]}], ";", 
  RowBox[{
   RowBox[{"A", "[", 
    RowBox[{"k_", ",", "\[Omega]n_"}], "]"}], ":=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"gi", "[", 
        RowBox[{"k", ",", "\[Omega]n", ",", "En1"}], "]"}], ",", "0", ",", 
       "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", 
       RowBox[{"gi", "[", 
        RowBox[{"k", ",", "\[Omega]n", ",", "En2"}], "]"}], ",", "0"}], "}"}],
      ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", 
       RowBox[{"gi", "[", 
        RowBox[{"k", ",", "\[Omega]n", ",", "En3"}], "]"}]}], "}"}]}], 
    "}"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"zeroCond", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"En1", "[", "k", "]"}], "\[Rule]", 
      RowBox[{"En", "[", "k", "]"}]}], ",", 
     RowBox[{
      RowBox[{"En2", "[", "k", "]"}], "\[Rule]", 
      RowBox[{"-", 
       RowBox[{"En", "[", "k", "]"}]}]}]}], "}"}]}], ";", 
  RowBox[{"zeroCond3", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"En3", "[", "k", "]"}], "\[Rule]", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"\[Epsilon]", "[", "k", "]"}]}], "-", "\[Eta]"}]}], "}"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.512389488590002*^9, 3.512389515185823*^9}, {
  3.5123898598001432`*^9, 3.512389877056303*^9}, {3.512389965042348*^9, 
  3.512389996153943*^9}, {3.5123900828897552`*^9, 3.512390095201092*^9}, {
  3.512390265436783*^9, 3.512390265613268*^9}, {3.5123904151009903`*^9, 
  3.512390415602803*^9}, {3.51239050930007*^9, 3.512390509491541*^9}, {
  3.512390811979208*^9, 3.5123908122584143`*^9}, {3.5123908609578247`*^9, 
  3.51239086358037*^9}, {3.5129245956643267`*^9, 3.5129246006012774`*^9}, {
  3.512927377644979*^9, 3.512927380501707*^9}, {3.5136239199941883`*^9, 
  3.513624119008791*^9}, {3.513624481599556*^9, 3.513624499520318*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Ainv", "[", 
    RowBox[{"k_", ",", "\[Omega]n_"}], "]"}], ":=", 
   RowBox[{"FullSimplify", "[", 
    RowBox[{"Inverse", "[", 
     RowBox[{"A", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], "]"}], "]"}]}], ";", 
  RowBox[{"FM", "=", 
   RowBox[{"Array", "[", 
    RowBox[{"m", ",", 
     RowBox[{"{", 
      RowBox[{"3", ",", "3"}], "}"}]}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.512390515929254*^9, 3.5123905200431147`*^9}, {
  3.512390553172483*^9, 3.512390569219492*^9}, {3.51239073335435*^9, 
  3.512390749977797*^9}, {3.512924635726512*^9, 3.5129246399340143`*^9}, {
  3.512924709737484*^9, 3.51292472518367*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"1", ",", "1"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"1", ",", "2"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"1", ",", "3"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"2", ",", "1"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"2", ",", "2"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"2", ",", "3"}], "]"}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"m", "[", 
      RowBox[{"3", ",", "1"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"3", ",", "2"}], "]"}], ",", 
     RowBox[{"m", "[", 
      RowBox[{"3", ",", "3"}], "]"}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.512924726166156*^9, 3.512924813239694*^9, 
  3.5129533976611814`*^9, 3.5130047566303587`*^9, 3.513620934068849*^9, 
  3.514026587126614*^9, 3.525375606128852*^9, 3.5257029994753113`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{"Ring", "=", 
    RowBox[{
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "S1", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", "S2"}]}], ")"}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.5123902510198593`*^9, 3.5123902567861767`*^9}, {
   3.512390448969267*^9, 3.5123904889383707`*^9}, {3.512390580260065*^9, 
   3.5123905863316174`*^9}, {3.512390623648417*^9, 3.512390623966927*^9}, {
   3.5123906843193398`*^9, 3.51239072160002*^9}, {3.5123908302633677`*^9, 
   3.5123908361680403`*^9}, {3.512390920273088*^9, 3.512390924178542*^9}, 
   3.512391207176531*^9, 3.52537717860527*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"term2", "=", 
   RowBox[{"Tr", "[", "Ring", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.512390943112681*^9, 3.5123909467545843`*^9}, {
  3.512390986125161*^9, 3.512390986682254*^9}, {3.51239186336613*^9, 
  3.512391869748838*^9}, {3.525377185154018*^9, 3.525377186738697*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"\[Delta]", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{
         RowBox[{"-", "D"}], " ", 
         RowBox[{"\[CapitalDelta]", "/", 
          RowBox[{"(", 
           RowBox[{"4", 
            RowBox[{
             RowBox[{"En", "[", "k", "]"}], "^", "2"}]}], ")"}]}]}], ",", 
        RowBox[{"u", "[", "k", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"D", " ", 
         RowBox[{"\[CapitalDelta]", "/", 
          RowBox[{"(", 
           RowBox[{"4", 
            RowBox[{
             RowBox[{"En", "[", "k", "]"}], "^", "2"}]}], ")"}]}]}], ",", "0",
         ",", 
        RowBox[{"v", "[", "k", "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", 
         RowBox[{"u", "[", "k", "]"}]}], ",", 
        RowBox[{"-", 
         RowBox[{"v", "[", "k", "]"}]}], ",", "0"}], "}"}]}], "}"}], 
    RowBox[{"D", "/", "\[Eta]"}]}]}], ";", 
  RowBox[{
   RowBox[{"L", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{"IdentityMatrix", "[", "3", "]"}], "+", 
    RowBox[{"\[Delta]", "[", "k", "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.512402832308311*^9, 3.5124028646950912`*^9}, {
  3.512402895177781*^9, 3.5124029963266487`*^9}, {3.5124034303511868`*^9, 
  3.512403433878025*^9}, {3.5124035080633717`*^9, 3.512403509247656*^9}, {
  3.512930187816414*^9, 3.5129301896230383`*^9}, {3.513622268533472*^9, 
  3.5136223051802588`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"Ring2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "S1", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", "S2"}], "+", 
    RowBox[{
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "S1", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", "S2"}], "-", 
    RowBox[{
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", "S1", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", "S2"}], "+", 
    RowBox[{
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "S1", ".", 
     RowBox[{"\[Delta]", "[", 
      RowBox[{"k", "+", "q"}], "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", "S2"}], "-", 
    RowBox[{
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "S1", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{
       RowBox[{"k", "+", "q"}], ",", 
       RowBox[{"\[Omega]n", "+", "ql"}]}], "]"}], ".", 
     RowBox[{"\[Delta]", "[", 
      RowBox[{"k", "+", "q"}], "]"}], ".", "S2"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.512403049642641*^9, 3.512403176726446*^9}, 
   3.512403442178372*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"sumFreq2", "[", "fun_", "]"}], ":=", 
  RowBox[{"Sum", "[", 
   RowBox[{
    RowBox[{"Residue", "[", 
     RowBox[{"fun", ",", 
      RowBox[{"{", 
       RowBox[{"z", ",", "x"}], "}"}]}], "]"}], ",", 
    RowBox[{"{", 
     RowBox[{"x", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"En2", "[", "k", "]"}], ",", 
        RowBox[{
         RowBox[{"En2", "[", 
          RowBox[{"k", "+", "q"}], "]"}], "-", 
         RowBox[{"I", "  ", "ql"}]}], ",", 
        RowBox[{"En3", "[", "k", "]"}], ",", 
        RowBox[{
         RowBox[{"En3", "[", 
          RowBox[{"k", "+", "q"}], "]"}], "-", 
         RowBox[{"I", " ", "ql"}]}]}], "}"}]}], "}"}]}], "]"}]}]], "Input",
 CellChangeTimes->{{3.512404466775576*^9, 3.5124045118630133`*^9}, {
  3.512404583216071*^9, 3.512404594025272*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"deviations", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Xi]1", "[", "q", "]"}], " ", ",", 
     RowBox[{"\[Xi]1c", "[", 
      RowBox[{"-", "q"}], "]"}], ",", " ", 
     RowBox[{"\[Xi]2", "[", "q", "]"}], ",", 
     RowBox[{"\[Xi]2c", "[", 
      RowBox[{"-", "q"}], "]"}], ",", 
     RowBox[{"\[Xi]1c", "[", "q", "]"}], " ", ",", 
     RowBox[{"\[Xi]1", "[", 
      RowBox[{"-", "q"}], "]"}], ",", " ", 
     RowBox[{"\[Xi]2c", "[", "q", "]"}], ",", 
     RowBox[{"\[Xi]2", "[", 
      RowBox[{"-", "q"}], "]"}]}], "}"}]}], ";", 
  RowBox[{"column", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Xi]1c", "[", "q", "]"}], " ", ",", 
     RowBox[{"\[Xi]1", "[", 
      RowBox[{"-", "q"}], "]"}], ",", " ", 
     RowBox[{"\[Xi]2c", "[", "q", "]"}], ",", 
     RowBox[{"\[Xi]2", "[", 
      RowBox[{"-", "q"}], "]"}]}], "}"}]}], ";", 
  RowBox[{"row", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"\[Xi]1", "[", "q", "]"}], " ", ",", 
     RowBox[{"\[Xi]1c", "[", 
      RowBox[{"-", "q"}], "]"}], ",", " ", 
     RowBox[{"\[Xi]2", "[", "q", "]"}], ",", 
     RowBox[{"\[Xi]2c", "[", 
      RowBox[{"-", "q"}], "]"}]}], "}"}]}], ";", 
  RowBox[{"deviationList", "=", 
   RowBox[{
    RowBox[{"Transpose", "[", 
     RowBox[{"{", "row", "}"}], "]"}], ".", 
    RowBox[{"{", "column", "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.512410525721468*^9, 3.512410534729623*^9}, {
   3.512411555734756*^9, 3.512411617390121*^9}, {3.5124116712085857`*^9, 
   3.5124117142271757`*^9}, {3.512411784488324*^9, 3.512411788657714*^9}, {
   3.5124119888669357`*^9, 3.512412013383046*^9}, {3.5124120475318317`*^9, 
   3.51241204794304*^9}, {3.5124125270178843`*^9, 3.5124125382335052`*^9}, 
   3.512412584865409*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Xi]1", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]1c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]1", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]2", "[", 
       RowBox[{"-", "q"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Xi]1c", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]1c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]1c", "[", 
       RowBox[{"-", "q"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1c", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1c", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2", "[", 
       RowBox[{"-", "q"}], "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Xi]1c", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]2", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]2", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]2", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2", "[", "q", "]"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"\[Xi]1c", "[", "q", "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", 
       RowBox[{"-", "q"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]1", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", 
       RowBox[{"-", "q"}], "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]2c", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", "q", "]"}]}], ",", 
     RowBox[{
      RowBox[{"\[Xi]2", "[", 
       RowBox[{"-", "q"}], "]"}], " ", 
      RowBox[{"\[Xi]2c", "[", 
       RowBox[{"-", "q"}], "]"}]}]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.512411618543202*^9, {3.512411689533395*^9, 3.512411714851137*^9}, 
   3.512411789350727*^9, {3.512412003973133*^9, 3.512412013869547*^9}, 
   3.51241204922171*^9, 3.512412113235539*^9, {3.5124125341761103`*^9, 
   3.512412539493354*^9}, 3.512412585578568*^9, 3.5129534212360225`*^9, 
   3.513005174381178*^9, 3.513620999792694*^9, 3.5140266175018587`*^9, 
   3.525376993538764*^9, 3.525377231908257*^9, 3.525703011853611*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{"mf0", "=", 
  RowBox[{
   RowBox[{"T0", "[", "k", "]"}], ".", 
   RowBox[{"Ainv", "[", 
    RowBox[{"k", ",", "wn"}], "]"}], ".", 
   RowBox[{"Transpose", "[", 
    RowBox[{"T0", "[", "k", "]"}], "]"}]}]}]], "Input",
 CellChangeTimes->{{3.5129248336367197`*^9, 3.512924879061933*^9}, {
  3.512927543641142*^9, 3.512927553383328*^9}, {3.512930042177519*^9, 
  3.512930047318612*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}]}], "}"}]], "Input",
 CellChangeTimes->{3.525377295387918*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]], "-", 
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.525377295496234*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mf11", "=", 
  RowBox[{
   RowBox[{"T0", "[", "k", "]"}], ".", 
   RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
   RowBox[{"Ainv", "[", 
    RowBox[{"k", ",", "wn"}], "]"}], ".", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}], ")"}]}]}]], "Input",
 CellChangeTimes->{{3.512927836046936*^9, 3.5129278759621763`*^9}, {
  3.5129300517922087`*^9, 3.512930053343317*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     FractionBox[
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], "\[Eta]"], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], "\[Eta]"]}], 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", "0"}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{{3.512927876492416*^9, 3.512927894628419*^9}, 
   3.512930054074201*^9, 3.5129302058385477`*^9, 3.512937233538085*^9, 
   3.5129534370544477`*^9, 3.525377298551016*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"mf12", "=", 
  RowBox[{"-", 
   RowBox[{
    RowBox[{"T0", "[", "k", "]"}], ".", 
    RowBox[{"Ainv", "[", 
     RowBox[{"k", ",", "wn"}], "]"}], ".", 
    RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
    RowBox[{"Transpose", "[", 
     RowBox[{"T0", "[", "k", "]"}], "]"}]}]}]}]], "Input",
 CellChangeTimes->{{3.5129279120604343`*^9, 3.5129279136036873`*^9}, {
   3.512930056657798*^9, 3.512930057895137*^9}, {3.5129305484101973`*^9, 
   3.5129305578883867`*^9}, 3.512941222585931*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
          RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]], "+", 
      FractionBox[
       RowBox[{"D", " ", 
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
          RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]]}], ",", "0", ",", "0"}], 
    "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5129279163738422`*^9, 3.512927923904314*^9}, 
   3.5129300586452007`*^9, 3.5129302082722397`*^9, 3.512930554134486*^9, 
   3.512941223398054*^9, 3.512946535512236*^9, 3.5129534390512514`*^9, 
   3.525377301988286*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Ainv", "[", 
  RowBox[{"k", ",", "wn"}], "]"}]], "Input",
 CellChangeTimes->{{3.512929191704462*^9, 3.512929195356415*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{"-", 
      FractionBox["1", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "wn"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.512929195942864*^9, 3.512953442270056*^9, 
  3.525377306302774*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.512950668641692*^9, 3.512950670729999*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[Xi]", "(", "k", ")"}], 
         RowBox[{"2", " ", 
          RowBox[{"En", "(", "k", ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"\[Xi]", "(", "k", ")"}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "0"},
     {
      RowBox[{
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"\[Xi]", "(", "k", ")"}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"\[Xi]", "(", "k", ")"}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["1", 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "0"},
     {"0", "0", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En3", "(", "k", ")"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.512950671244915*^9, 3.512950681869195*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"mf0", "+", "mf11", "+", "mf12"}], "/.", "uvcond"}]], "Input",
 CellChangeTimes->{{3.5129533641787243`*^9, 3.5129533694515333`*^9}, {
  3.512953637422392*^9, 3.5129536588116293`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          SuperscriptBox["\[CapitalDelta]", "2"]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "(", "k", ")"}], "3"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[Xi]", "(", "k", ")"}], 
          RowBox[{"En", "(", "k", ")"}]], "+", "1"}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "(", "k", ")"}], 
          RowBox[{"En", "(", "k", ")"}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[CapitalDelta]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{"\[Xi]", "(", "k", ")"}], 
             RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}], " ", 
          SuperscriptBox["D", "2"]}], 
         RowBox[{"8", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "(", "k", ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             FractionBox[
              RowBox[{"\[Xi]", "(", "k", ")"}], 
              RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}]}], 
          RowBox[{"2", " ", "\[Eta]"}]], "+", 
         FractionBox[
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"\[Xi]", "(", "k", ")"}], 
              RowBox[{"En", "(", "k", ")"}]]}], ")"}]}], 
          RowBox[{"2", " ", "\[Eta]"}]]}], 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
         RowBox[{"En3", "(", "k", ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[CapitalDelta]", " ", 
          RowBox[{"(", 
           RowBox[{
            FractionBox[
             RowBox[{"\[Xi]", "(", "k", ")"}], 
             RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}], " ", 
          SuperscriptBox["D", "2"]}], 
         RowBox[{"8", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "(", "k", ")"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}], " ", 
         SuperscriptBox["D", "2"]}], 
        RowBox[{"8", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "3"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "(", "k", ")"}], 
          RowBox[{"En", "(", "k", ")"}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"\[Xi]", "(", "k", ")"}], 
          RowBox[{"En", "(", "k", ")"}]], "+", "1"}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", "\[CapitalDelta]"}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"D", " ", "\[CapitalDelta]"}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]], "+", "1"}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En3", "(", "k", ")"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"(", 
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "(", "k", ")"}], 
            RowBox[{"En", "(", "k", ")"}]]}], ")"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En3", "(", "k", ")"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", "\[CapitalDelta]"}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"D", " ", "\[CapitalDelta]"}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "wn"}]}], ")"}]}]]}], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En3", "(", "k", ")"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.5129536410415983`*^9, 3.51295365921723*^9}, 
   3.512953744433776*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.512953795123464*^9, 3.512953798488669*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "wn"}], "+", 
           RowBox[{"En1", "(", "k", ")"}], "+", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "3"]}], "+", 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"En1", "(", "k", ")"}]}], ")"}], " ", 
         RowBox[{"\[Xi]", "(", "k", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"En1", "(", "k", ")"}]}], ")"}]}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "(", "k", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En1", "(", "k", ")"}], "-", 
          RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "\[Eta]", " ", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"\[Xi]", "(", "k", ")"}]}]}], ")"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "(", "k", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"En", "(", "k", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "wn", " ", 
              RowBox[{"En3", "(", "k", ")"}]}], "+", 
             RowBox[{
              RowBox[{"En2", "(", "k", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"wn", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"En1", "(", "k", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"wn", "+", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"En2", "(", "k", ")"}]}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
          
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"wn", "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
           RowBox[{"\[Xi]", "(", "k", ")"}]}]}], ")"}]}], 
       RowBox[{"2", " ", "\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]]},
     {
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En1", "(", "k", ")"}], "-", 
          RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"2", " ", "\[Eta]", " ", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], "-", 
          RowBox[{
           SuperscriptBox["D", "2"], " ", 
           RowBox[{"\[Xi]", "(", "k", ")"}]}]}], ")"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "(", "k", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox[
       RowBox[{
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "wn"}], "+", 
           RowBox[{"En1", "(", "k", ")"}], "+", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "3"]}], "+", 
        RowBox[{"2", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
         RowBox[{"\[Xi]", "(", "k", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"]}], "+", 
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}]}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "(", "k", ")"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox[
       RowBox[{"D", " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En2", "(", "k", ")"}], "-", 
          RowBox[{"En1", "(", "k", ")"}]}], ")"}]}], 
       RowBox[{"2", " ", "\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]]},
     {
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"En", "(", "k", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "2"}], " ", "wn", " ", 
              RowBox[{"En3", "(", "k", ")"}]}], "+", 
             RowBox[{
              RowBox[{"En2", "(", "k", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"wn", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}], "+", 
             RowBox[{
              RowBox[{"En1", "(", "k", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{"wn", "+", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"En2", "(", "k", ")"}]}], "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]}], ")"}]}], "+", 
          
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"wn", "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
           RowBox[{"\[Xi]", "(", "k", ")"}]}]}], ")"}]}], 
       RowBox[{"2", " ", "\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox[
       RowBox[{"D", " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En2", "(", "k", ")"}], "-", 
          RowBox[{"En1", "(", "k", ")"}]}], ")"}]}], 
       RowBox[{"2", " ", "\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"wn", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]], 
      FractionBox["1", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En3", "(", "k", ")"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.51295379919867*^9, 3.5129538076290836`*^9}}]
}, Open  ]],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"g1", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", "k", "]"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], " ", "-", 
       RowBox[{"En1", "[", "k", "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", "k", "]"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], "-", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]}]}], ";", 
  RowBox[{
   RowBox[{"g2", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], " ", "-", 
       RowBox[{"En1", "[", "k", "]"}]}], ")"}]}], "-", 
    RowBox[{"1", "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], "-", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]}]}], ";", 
  RowBox[{
   RowBox[{"g3", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"v", "[", "k", "]"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], " ", "-", 
       RowBox[{"En1", "[", "k", "]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{
      RowBox[{"u", "[", "k", "]"}], "^", "2"}], "/", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"I", " ", "wn"}], "-", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]}]}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"G", "[", "k_", "]"}], ":=", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"g1", "[", "k", "]"}], ",", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"u", "[", "k", "]"}]}], 
         RowBox[{"v", "[", "k", "]"}], 
         RowBox[{"g2", "[", "k", "]"}]}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{
         RowBox[{"-", 
          RowBox[{"u", "[", "k", "]"}]}], 
         RowBox[{"v", "[", "k", "]"}], 
         RowBox[{"g2", "[", "k", "]"}]}], ",", 
        RowBox[{"g3", "[", "k", "]"}], ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"0", ",", "0", ",", 
        RowBox[{"1", "/", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"I", " ", "wn"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]}], "}"}]}], "}"}], "+", 
    RowBox[{
     RowBox[{"D", "/", "\[Eta]"}], 
     RowBox[{"{", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"\[CapitalDelta]", "^", "2"}], " ", 
          RowBox[{"D", "/", 
           RowBox[{"(", 
            RowBox[{"4", 
             RowBox[{
              RowBox[{"En", "[", "k", "]"}], "^", "3"}]}], ")"}]}], 
          RowBox[{"g2", "[", "k", "]"}]}], ",", 
         RowBox[{"\[CapitalDelta]", " ", "D", " ", 
          RowBox[{
           RowBox[{"\[Xi]", "[", "k", "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"4", 
             RowBox[{
              RowBox[{"En", "[", "k", "]"}], "^", "3"}]}], ")"}]}], 
          RowBox[{"g2", "[", "k", "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"g1", "[", "k", "]"}]}], "+", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"I", " ", "wn"}], "-", 
             RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{"\[CapitalDelta]", " ", "D", " ", 
          RowBox[{
           RowBox[{"\[Xi]", "[", "k", "]"}], "/", 
           RowBox[{"(", 
            RowBox[{"4", 
             RowBox[{
              RowBox[{"En", "[", "k", "]"}], "^", "3"}]}], ")"}]}], 
          RowBox[{"g2", "[", "k", "]"}]}], ",", 
         RowBox[{
          RowBox[{"-", 
           RowBox[{"\[CapitalDelta]", "^", "2"}]}], " ", 
          RowBox[{"D", "/", 
           RowBox[{"(", 
            RowBox[{"4", 
             RowBox[{
              RowBox[{"En", "[", "k", "]"}], "^", "3"}]}], ")"}]}], 
          RowBox[{"g2", "[", "k", "]"}]}], ",", 
         RowBox[{
          RowBox[{"u", "[", "k", "]"}], 
          RowBox[{"v", "[", "k", "]"}], 
          RowBox[{"g2", "[", "k", "]"}]}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{"-", 
           RowBox[{"g1", "[", "k", "]"}]}], "+", 
          RowBox[{"1", "/", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"I", " ", "wn"}], "-", 
             RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]}], ",", 
         RowBox[{
          RowBox[{"u", "[", "k", "]"}], 
          RowBox[{"v", "[", "k", "]"}], 
          RowBox[{"g2", "[", "k", "]"}]}], ",", "0"}], "}"}]}], "}"}]}]}]}], 
  ";", 
  RowBox[{
   RowBox[{
    RowBox[{"G", "[", "k", "]"}], "-", "mf0", "-", "mf11", "-", "mf12"}], "/.",
    "uvcond"}], ";"}]}], "Input",
 CellChangeTimes->{{3.512953874447198*^9, 3.512954272479484*^9}, 
   3.5129543280703807`*^9, {3.5129547133738446`*^9, 3.512954736305885*^9}, 
   3.5253773565549507`*^9}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"G", "[", "k", "]"}]], "Input",
 CellChangeTimes->{{3.5129551809587183`*^9, 3.512955183117921*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["\[CapitalDelta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En1", "[", "k", "]"}]}]], "-", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En1", "[", "k", "]"}]}]], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ",", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En1", "[", "k", "]"}]}]], "-", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], " ", 
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En1", "[", "k", "]"}]}]], "-", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]]}], ",", 
     FractionBox[
      RowBox[{"D", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}]], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], "\[Eta]"]}], "}"}], 
   ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En1", "[", "k", "]"}]}]], "-", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], " ", 
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], "+", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En1", "[", "k", "]"}]}]], "-", 
          FractionBox["1", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
            RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox["1", 
            RowBox[{
             RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
             RowBox[{"En1", "[", "k", "]"}]}]], "-", 
           FractionBox["1", 
            RowBox[{
             RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
             RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "3"]}]]}], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En2", "[", "k", "]"}]}]], "+", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], ",", 
     FractionBox[
      RowBox[{"D", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], " ", 
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], "\[Eta]"]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"D", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}]], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], "\[Eta]"], ",", 
     FractionBox[
      RowBox[{"D", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox["1", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], " ", 
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], "\[Eta]"], ",", 
     FractionBox["1", 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "wn"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{{3.5129551839135227`*^9, 3.5129551932319384`*^9}, 
   3.5253773807708187`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"Gr0", "[", 
    RowBox[{"k_", ",", "wn_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"T0", "[", "k", "]"}], ".", 
    RowBox[{"Ainv", "[", 
     RowBox[{"k", ",", "wn"}], "]"}], ".", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Gr", "[", 
    RowBox[{"k_", ",", "wn_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{"T0", "[", "k", "]"}], ".", 
    RowBox[{"L", "[", "k", "]"}], ".", 
    RowBox[{"Ainv", "[", 
     RowBox[{"k", ",", "wn"}], "]"}], ".", 
    RowBox[{
     RowBox[{"L", "[", "k", "]"}], "\[Transpose]"}], ".", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}]}], ";", 
  RowBox[{
   RowBox[{"Gr1", "[", 
    RowBox[{"k_", ",", "wn_"}], "]"}], ":=", 
   RowBox[{
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], ".", 
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "wn"}], "]"}], ".", 
     RowBox[{
      RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}], "-", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "wn"}], "]"}], ".", 
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
     RowBox[{
      RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.5136221225882*^9, 3.513622215775477*^9}, {
  3.513622313025415*^9, 3.513622335372285*^9}, {3.513624177563916*^9, 
  3.513624220561427*^9}, {3.513624329048368*^9, 3.513624338367608*^9}, {
  3.51362440847766*^9, 3.513624411886609*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"G3G3", "=", 
   RowBox[{
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3", ".", 
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3"}]}], ";", 
  RowBox[{"G3G31", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Gr1", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3", ".", 
       RowBox[{"Gr0", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3"}], "-", 
      RowBox[{
       RowBox[{"Gr0", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3", ".", 
       RowBox[{"Gr1", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]3"}]}], ")"}], "/.",
     "zeroCond"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.513622338038445*^9, 3.513622379673325*^9}, {
   3.513622470638442*^9, 3.513622474387588*^9}, {3.5136234122470427`*^9, 
   3.5136234300794897`*^9}, {3.51362383501392*^9, 3.513623838475594*^9}, {
   3.5136241394107027`*^9, 3.513624171753673*^9}, {3.513624247486595*^9, 
   3.5136242703752747`*^9}, {3.5136244142357397`*^9, 3.5136244209220667`*^9}, 
   3.5136247629074297`*^9, {3.514035782784114*^9, 3.514035783126326*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 FormBox[
  RowBox[{"TraditionalForm", "[", "G3G3", "]"}], TraditionalForm]], "Input",
 CellChangeTimes->{{3.525376300607266*^9, 3.525376317432733*^9}, {
  3.52537760657662*^9, 3.525377614817122*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], "2"], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"u", "(", "k", ")"}], " ", 
             RowBox[{"v", "(", "k", ")"}]}], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
           FractionBox[
            RowBox[{
             RowBox[{"u", "(", "k", ")"}], " ", 
             RowBox[{"v", "(", "k", ")"}]}], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]}], 
      "0"},
     {
      RowBox[{
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]}], 
      RowBox[{
       RowBox[{"-", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{
             RowBox[{"u", "(", "k", ")"}], " ", 
             RowBox[{"v", "(", "k", ")"}]}], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
           FractionBox[
            RowBox[{
             RowBox[{"u", "(", "k", ")"}], " ", 
             RowBox[{"v", "(", "k", ")"}]}], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], "2"]}], 
       "-", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "+", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]}], 
      "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "(", "k", ")"}]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.5253763036361437`*^9, 3.525376324419127*^9}, {
  3.52537761139655*^9, 3.5253776282316303`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G4G4", "=", 
   RowBox[{
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]4", ".", 
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "\[Sigma]4"}]}], ";", 
  RowBox[{"TraditionalForm", "[", "G4G4", "]"}]}]], "Input",
 CellChangeTimes->{{3.5253774953777523`*^9, 3.525377501491109*^9}, {
  3.525377548202545*^9, 3.525377556646731*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
          FractionBox[
           RowBox[{
            RowBox[{"u", "(", "k", ")"}], " ", 
            RowBox[{"v", "(", "k", ")"}]}], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "+", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "(", "k", ")"}]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.52537753978629*^9, 3.525377557119211*^9}, 
   3.52537762087183*^9, 3.525703069546576*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Mk", "=", 
   RowBox[{"Simplify", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}], ".", "\[Sigma]4", ".", 
      RowBox[{"T0", "[", "k", "]"}]}], "/.", "uvcond"}], "]"}]}], ";", 
  RowBox[{"MatrixForm", "[", "Mk", "]"}]}]], "Input",
 CellChangeTimes->{{3.513621445501973*^9, 3.5136214764729156`*^9}, {
  3.51403276160639*^9, 3.5140328246805143`*^9}, {3.5253776902675247`*^9, 
  3.525377710166177*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox["1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"En", "[", "k", "]"}]}]], "0"},
     {
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"En", "[", "k", "]"}]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"En", "[", "k", "]"}], "+", 
         RowBox[{"\[Xi]", "[", "k", "]"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "[", "k", "]"}]}]]}], "0"},
     {"0", "0", "1"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 GeneratedCell->False,
 CellAutoOverwrite->False,
 CellChangeTimes->{
  3.51362147686519*^9, 3.513621507421348*^9, {3.514032764740296*^9, 
   3.514032827178029*^9}, 3.5253763516600437`*^9, {3.525377690270599*^9, 
   3.525377711381544*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"  ", 
  RowBox[{
   RowBox[{"MMk", "=", 
    RowBox[{"Mk", ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}]}]}], ";", 
   RowBox[{"MatrixForm", "[", "MMk", "]"}]}]}]], "Input",
 CellChangeTimes->{{3.51403288844263*^9, 3.514032929115996*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         RowBox[{"-", "1"}], "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{"-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "0"},
     {
      RowBox[{"-", 
       FractionBox["\[CapitalDelta]", 
        RowBox[{"2", " ", 
         RowBox[{"En", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], 
      FractionBox[
       RowBox[{
        RowBox[{"En", "[", "k", "]"}], "+", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{"2", " ", 
        RowBox[{"En", "[", "k", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "0"},
     {"0", "0", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "[", "k", "]"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5140329127331467`*^9, 3.5140329296650133`*^9}, 
   3.525376359467731*^9, 3.525377720039074*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"G4G4", "/.", "uvcond"}], "]"}]], "Input",
 CellChangeTimes->{{3.52537774525847*^9, 3.5253777608665447`*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox["\[CapitalDelta]", 
            RowBox[{"2", " ", 
             RowBox[{"En", "[", "k", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
          FractionBox["\[CapitalDelta]", 
           RowBox[{"2", " ", 
            RowBox[{"En", "[", "k", "]"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], 
             RowBox[{"En", "[", "k", "]"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
         FractionBox[
          RowBox[{"1", "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "0"},
     {"0", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
          FractionBox[
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], 
             RowBox[{"En", "[", "k", "]"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
         FractionBox[
          RowBox[{"1", "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.525377761627112*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"MatrixForm", "[", 
  RowBox[{"MMk", ".", "MMk"}], "]"}]], "Input",
 CellChangeTimes->{{3.514032960564343*^9, 3.514032972094397*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       FractionBox[
        SuperscriptBox["\[CapitalDelta]", "2"], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], ")"}], "2"], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[CapitalDelta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En", "[", "k", "]"}], "+", 
            RowBox[{"\[Xi]", "[", "k", "]"}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]}]]}], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"En", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "0"},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"\[CapitalDelta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"En", "[", "k", "]"}], "+", 
            RowBox[{"\[Xi]", "[", "k", "]"}]}], ")"}]}], 
         RowBox[{"4", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", "1"}], "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
        RowBox[{"4", " ", 
         RowBox[{"En", "[", "k", "]"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]}]]}], 
      RowBox[{
       FractionBox[
        SuperscriptBox["\[CapitalDelta]", "2"], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En", "[", "k", "]"}], "+", 
           RowBox[{"\[Xi]", "[", "k", "]"}]}], ")"}], "2"], 
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]}]]}], "0"},
     {"0", "0", 
      FractionBox["1", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{3.51403297252042*^9, 3.5253764460922813`*^9, 
  3.5253777668287153`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{"MMk", ".", "MMk"}], "]"}]], "Input",
 CellChangeTimes->{{3.514032991261104*^9, 3.514032996855694*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   SuperscriptBox["\[CapitalDelta]", "2"], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"En", "[", "k", "]"}], "+", 
      RowBox[{"\[Xi]", "[", "k", "]"}]}], ")"}], "2"], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]}]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "1"}], "+", 
      FractionBox[
       RowBox[{"\[Xi]", "[", "k", "]"}], 
       RowBox[{"En", "[", "k", "]"}]]}], ")"}], "2"], 
   RowBox[{"4", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{3.514032997305871*^9, 3.5253764515611763`*^9, 
  3.525377843077135*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{"G4G4", "/.", "uvcond"}], "]"}]], "Input",
 CellChangeTimes->{{3.525377855987134*^9, 3.5253778576233673`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{3.525377858105946*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G3G31al", "=", 
   RowBox[{
    RowBox[{
     RowBox[{
      RowBox[{"\[Delta]", "[", "k", "]"}], ".", "MMk", ".", "MMk"}], "-", 
     RowBox[{"MMk", ".", "MMk", ".", 
      RowBox[{"\[Delta]", "[", "k", "]"}]}]}], "/.", "zeroCond"}]}], ";", 
  RowBox[{"MatrixForm", "[", "G3G31al", "]"}]}]], "Input",
 CellChangeTimes->{{3.514035157238154*^9, 3.5140351881265097`*^9}, {
  3.514035254538376*^9, 3.5140352925944843`*^9}, {3.514035741554747*^9, 
  3.514035751930764*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          SuperscriptBox["\[CapitalDelta]", "2"], " ", 
          RowBox[{"\[Xi]", "[", "k", "]"}]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "4"], " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"\[Xi]", "[", "k", "]"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[CapitalDelta]", " ", 
              RowBox[{"\[Xi]", "[", "k", "]"}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
                 RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"En", "[", "k", "]"}], "2"]}]]}], "+", 
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          SuperscriptBox["\[CapitalDelta]", "3"]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
            RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "4"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
            RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "4"]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["\[CapitalDelta]", "2"], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], "2"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]]}], ")"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
            RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"v", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"\[CapitalDelta]", " ", 
              RowBox[{"\[Xi]", "[", "k", "]"}]}], 
             RowBox[{
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
                 RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"En", "[", "k", "]"}], "2"]}]]}], "+", 
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        "\[Eta]"], "-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["\[CapitalDelta]", "2"], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], "2"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]]}], ")"}]}], 
        "\[Eta]"]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "3"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "4"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["\[CapitalDelta]", "2"], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], "2"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"]}]]}], ")"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", 
          SuperscriptBox["\[CapitalDelta]", "2"], " ", 
          RowBox[{"\[Xi]", "[", "k", "]"}]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
             RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "4"]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", 
         SuperscriptBox["\[CapitalDelta]", "2"], " ", 
         RowBox[{"\[Xi]", "[", "k", "]"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "4"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
            RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
           FractionBox[
            RowBox[{"\[CapitalDelta]", " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        "\[Eta]"], "-", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"v", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            SuperscriptBox["\[CapitalDelta]", "2"], 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], "2"], 
            RowBox[{
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
                RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
             SuperscriptBox[
              RowBox[{"En", "[", "k", "]"}], "2"]}]]}], ")"}]}], 
        "\[Eta]"]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
            RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"\[Xi]", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", "\[CapitalDelta]", " ", 
             RowBox[{"v", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"En", "[", "k", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"u", "[", "k", "]"}], " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"En", "[", "k", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        RowBox[{
         RowBox[{"En", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", "\[CapitalDelta]", " ", 
             RowBox[{"u", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             RowBox[{"En", "[", "k", "]"}]}]], "-", 
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"v", "[", "k", "]"}], " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             RowBox[{"En", "[", "k", "]"}]}]]}], ")"}]}], 
        RowBox[{
         RowBox[{"En", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
            RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", "\[CapitalDelta]", " ", 
             RowBox[{"v", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"En", "[", "k", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"u", "[", "k", "]"}], " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"En", "[", "k", "]"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
         RowBox[{"En", "[", "k", "]"}]}]], "+", 
       FractionBox[
        RowBox[{
         RowBox[{"\[Xi]", "[", "k", "]"}], " ", 
         RowBox[{"(", 
          RowBox[{
           FractionBox[
            RowBox[{"D", " ", "\[CapitalDelta]", " ", 
             RowBox[{"u", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             RowBox[{"En", "[", "k", "]"}]}]], "-", 
           FractionBox[
            RowBox[{"D", " ", 
             RowBox[{"v", "[", "k", "]"}], " ", 
             RowBox[{"\[Xi]", "[", "k", "]"}]}], 
            RowBox[{"\[Eta]", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
               RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
             RowBox[{"En", "[", "k", "]"}]}]]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
         RowBox[{"En", "[", "k", "]"}]}]]}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.514035172613901*^9, 3.5140352100601788`*^9}, {
  3.5140352640127068`*^9, 3.514035293046194*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", "G3G31al", "]"}]], "Input",
 CellChangeTimes->{{3.5140353113248796`*^9, 3.514035317586421*^9}, {
  3.514035756186995*^9, 3.51403575826503*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   FractionBox[
    RowBox[{
     SuperscriptBox["D", "2"], " ", 
     SuperscriptBox["\[CapitalDelta]", "2"], " ", 
     RowBox[{"\[Xi]", "[", "k", "]"}]}], 
    RowBox[{"4", " ", "\[Eta]", " ", 
     SuperscriptBox[
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
        RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
     SuperscriptBox[
      RowBox[{"En", "[", "k", "]"}], "4"]}]]}], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D", "2"], " ", 
    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
    RowBox[{"\[Xi]", "[", "k", "]"}]}], 
   RowBox[{"4", " ", "\[Eta]", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "4"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D", "2"], " ", 
    SuperscriptBox["\[CapitalDelta]", "2"], " ", 
    RowBox[{"\[Xi]", "[", "k", "]"}]}], 
   RowBox[{"2", " ", "\[Eta]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
      RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "4"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"]}]], "-", 
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
   RowBox[{"4", " ", "\[Eta]", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "2"]}]], "-", 
  FractionBox[
   RowBox[{
    SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"\[CapitalDelta]", " ", 
         RowBox[{"\[Xi]", "[", "k", "]"}]}], 
        RowBox[{
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
            RowBox[{"En", "[", "k", "]"}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"]}]]}], "+", 
      FractionBox[
       RowBox[{"\[CapitalDelta]", " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
   RowBox[{"4", " ", "\[Eta]", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "2"]}]]}]], "Output",
 CellChangeTimes->{3.514035318179714*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Simplify", "[", 
  RowBox[{"Tr", "[", "G3G31al", "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5140353802760057`*^9, 3.514035434167563*^9}, {
  3.514035534890128*^9, 3.514035561847946*^9}, {3.514035768933179*^9, 
  3.514035772169454*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{{3.5140354057840557`*^9, 3.514035434726267*^9}, {
  3.514035541633088*^9, 3.514035567656548*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{"G3G31", "/.", "uvcond"}], "]"}]], "Input",
 CellChangeTimes->{{3.513622560260426*^9, 3.513622565940157*^9}, {
   3.5136246183231497`*^9, 3.51362462690996*^9}, {3.514026679240662*^9, 
   3.514026682733844*^9}, {3.514027602639526*^9, 3.514027620830358*^9}, 
   3.5140357089923487`*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", 
    RowBox[{"(", 
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["\[CapitalDelta]", "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]], "-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["\[CapitalDelta]", "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["\[CapitalDelta]", "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"]}], 
      RowBox[{"4", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"1", "-", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["\[CapitalDelta]", 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       RowBox[{"En", "[", "k", "]"}]}]], "-", 
     FractionBox["\[CapitalDelta]", 
      RowBox[{"2", " ", 
       RowBox[{"En", "[", "k", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
       RowBox[{"8", " ", "\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        RowBox[{"En", "[", "k", "]"}]}]]}], "+", 
     FractionBox["\[CapitalDelta]", 
      RowBox[{"2", " ", 
       RowBox[{"En", "[", "k", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}]], "Output",
 CellChangeTimes->{
  3.513622566590308*^9, 3.513624382552248*^9, 3.513624440721325*^9, {
   3.513624535204916*^9, 3.5136245453005323`*^9}, 3.513624627356017*^9, 
   3.514026686094968*^9, {3.514027615143794*^9, 3.5140276216659*^9}, 
   3.514035711098328*^9, 3.514035790717224*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Apart", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.514035722262457*^9, 3.514035726943828*^9}}],

Cell[BoxData["0"], "Output",
 CellChangeTimes->{3.514035727392818*^9, 3.514035795400711*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Tr", "[", "G3G3", "]"}], "]"}]], "Input",
 CellChangeTimes->{3.513624669635841*^9}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"]}], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"2", " ", 
       SuperscriptBox["\[Omega]n", "2"]}], "+", 
      SuperscriptBox[
       RowBox[{"En1", "[", "k", "]"}], "2"], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", 
       RowBox[{"En1", "[", "k", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{"\[Omega]n", "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", 
          RowBox[{"En2", "[", "k", "]"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]n", " ", 
       RowBox[{"En2", "[", "k", "]"}]}], "+", 
      SuperscriptBox[
       RowBox[{"En2", "[", "k", "]"}], "2"]}], ")"}], " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Omega]n", "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"En1", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Omega]n", "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"En2", "[", "k", "]"}]}]}], ")"}], "2"]}]], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
     FractionBox["1", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]]}], ")"}], " ", 
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"]}]}]], "Output",
 CellChangeTimes->{3.513624671367951*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", "G3G3", "]"}]], "Input",
 CellChangeTimes->{{3.513624735179923*^9, 3.5136247356906233`*^9}, {
  3.5136247760272417`*^9, 3.5136247795315027`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "-", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}]], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], "2"], "+", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}]], "-", 
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        RowBox[{"u", "[", "k", "]"}], " ", 
        RowBox[{"v", "[", "k", "]"}]}], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"u", "[", "k", "]"}], " ", 
       RowBox[{"v", "[", "k", "]"}]}], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], "-", 
  RowBox[{
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"v", "[", "k", "]"}], "2"], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      SuperscriptBox[
       RowBox[{"u", "[", "k", "]"}], "2"], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}]], "+", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"v", "[", "k", "]"}], "2"], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}]]}], ")"}]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
        RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
     FractionBox[
      SuperscriptBox[
       RowBox[{"v", "[", "k", "]"}], "2"], 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], "2"]}]], "Output",
 CellChangeTimes->{3.51362478010857*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5136247929459267`*^9, 3.5136247950824327`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"8", " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.5136247955017653`*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"G1G1", "=", 
   RowBox[{
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}]}]}], ";", 
  RowBox[{"G1G11", "=", 
   RowBox[{
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"Gr1", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
       RowBox[{"Gr0", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}]}], "+", 
      RowBox[{
       RowBox[{"Gr0", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
       RowBox[{"Gr1", "[", 
        RowBox[{"k", ",", "\[Omega]n"}], "]"}]}]}], ")"}], "/.", 
    "zeroCond"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.5136249447890043`*^9, 3.513624974972282*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  RowBox[{"Tr", "[", 
   RowBox[{"G1G1", "+", "G1G11"}], "]"}], "]"}]], "Input",
 CellChangeTimes->{{3.5136249849085913`*^9, 3.513624996823578*^9}, {
  3.5136251509949207`*^9, 3.5136251540587397`*^9}, {3.5140267265411797`*^9, 
  3.514026732550282*^9}, {3.51402681194526*^9, 3.514026815960661*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"-", "2"}], " ", "\[ImaginaryI]", " ", "\[Omega]n", " ", 
     RowBox[{"En2", "[", "k", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Omega]n", "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], ")"}], "2"]}]}], ")"}]}], 
    "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"En2", "[", "k", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Omega]n", "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], ")"}], "2"]}]}], ")"}]}], 
    "-", 
    RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]n", " ", 
     RowBox[{"En1", "[", "k", "]"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Omega]n", "2"], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]n", " ", 
        RowBox[{"En2", "[", "k", "]"}]}], "-", 
       SuperscriptBox[
        RowBox[{"En2", "[", "k", "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], ")"}], "2"]}]}], ")"}]}], 
    "+", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"En1", "[", "k", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Omega]n", "2"], "+", 
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Omega]n", " ", 
        RowBox[{"En2", "[", "k", "]"}]}], "-", 
       SuperscriptBox[
        RowBox[{"En2", "[", "k", "]"}], "2"], "+", 
       RowBox[{
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], ")"}], "2"]}]}], ")"}]}], 
    "-", 
    RowBox[{
     SuperscriptBox["\[Omega]n", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[Omega]n", "2"], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], ")"}], "2"]}]}], ")"}]}]}], 
   ")"}], "/", 
  RowBox[{"(", 
   RowBox[{
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Omega]n", "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"En1", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Omega]n", "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"En2", "[", "k", "]"}]}]}], ")"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{"\[Omega]n", "+", 
       RowBox[{"\[ImaginaryI]", " ", 
        RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], "2"]}], ")"}]}]], "Output",\

 CellChangeTimes->{
  3.513624997578289*^9, {3.5140267300262003`*^9, 3.5140267371558123`*^9}, 
   3.514026818457365*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{
   RowBox[{"G1G1", "+", "G1G11"}], "/.", "uvcond"}], "]"}]], "Input",
 CellChangeTimes->{{3.513625014898138*^9, 3.513625019272244*^9}, {
  3.513625077961796*^9, 3.5136250791691217`*^9}, {3.514026830567391*^9, 
  3.514026861955707*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"2", " ", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"En", "[", "k", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"En", "[", "k", "]"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], "+", 
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", 
        SuperscriptBox["\[CapitalDelta]", "2"]}], 
       RowBox[{"4", " ", "\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "3"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"]}], 
      RowBox[{"4", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "+", 
  RowBox[{"2", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"]}], 
      RowBox[{"4", " ", "\[Eta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "3"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"]}], 
      RowBox[{"4", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "3"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "+", 
  RowBox[{"4", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox["\[CapitalDelta]", 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        RowBox[{"En", "[", "k", "]"}]}]]}], "+", 
     FractionBox["\[CapitalDelta]", 
      RowBox[{"2", " ", 
       RowBox[{"En", "[", "k", "]"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
        RowBox[{"(", 
         RowBox[{"1", "-", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
       RowBox[{"8", " ", "\[Eta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
          RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"]}]]}], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]], "+", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "-", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"]}]], "-", 
     FractionBox[
      RowBox[{
       SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
       RowBox[{"(", 
        RowBox[{"1", "+", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
      RowBox[{"8", " ", "\[Eta]", " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"], "+", 
  SuperscriptBox[
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{"1", "-", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
     FractionBox[
      RowBox[{"1", "+", 
       FractionBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], 
        RowBox[{"En", "[", "k", "]"}]]}], 
      RowBox[{"2", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], 
   "2"]}]], "Output",
 CellChangeTimes->{
  3.513625020560638*^9, 3.513625080325469*^9, {3.514026834973435*^9, 
   3.5140268625809317`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Expand", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5136250882427797`*^9, 3.513625090761361*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"u", "[", "k", "]"}], "2"], " ", 
    SuperscriptBox[
     RowBox[{"v", "[", "k", "]"}], "2"]}], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]]}]], "Output",
 CellChangeTimes->{3.513625091152573*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", "uvcond"}]], "Input",
 CellChangeTimes->{{3.513625110227811*^9, 3.513625113537488*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox["1", 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"u", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   SuperscriptBox[
    RowBox[{"v", "[", "k", "]"}], "4"], 
   SuperscriptBox[
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"\[Xi]", "[", "k", "]"}], 
       RowBox[{"En", "[", "k", "]"}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{"\[Xi]", "[", "k", "]"}], 
       RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En1", "[", "k", "]"}]}], ")"}], "2"]}]], "+", 
  FractionBox[
   RowBox[{
    RowBox[{"(", 
     RowBox[{"1", "-", 
      FractionBox[
       RowBox[{"\[Xi]", "[", "k", "]"}], 
       RowBox[{"En", "[", "k", "]"}]]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"1", "+", 
      FractionBox[
       RowBox[{"\[Xi]", "[", "k", "]"}], 
       RowBox[{"En", "[", "k", "]"}]]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}], "2"]}]]}]], "Output",
 CellChangeTimes->{3.513625114691827*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "G1G11", "]"}]], "Input",
 CellChangeTimes->{{3.5136251644073763`*^9, 3.5136251724508543`*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", 
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", "\[Omega]n", 
        " ", 
        RowBox[{"u", "(", "k", ")"}], " ", 
        RowBox[{"v", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "(", "k", ")"}], "2"], "+", 
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"]}]], 
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", "\[Omega]n", 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "(", "k", ")"}], "4"], "-", 
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "4"]}], ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"]}]], 
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "4"}], " ", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"]}], "+", 
          FractionBox[
           RowBox[{
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En", "(", "k", ")"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "-", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En", "(", "k", ")"}], "-", 
               RowBox[{"En3", "(", "k", ")"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "+", 
               RowBox[{"En", "(", "k", ")"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En", "(", "k", ")"}], "+", 
               RowBox[{"En3", "(", "k", ")"}]}], ")"}], " ", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}]}], 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], "2"]], "-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Omega]n", "-", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   RowBox[{"En", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"En", "(", "k", ")"}], "-", 
                 RowBox[{"En3", "(", "k", ")"}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"u", "(", "k", ")"}], "4"]}], "-", 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 SuperscriptBox["\[Omega]n", "2"], "+", 
                 SuperscriptBox[
                  RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], " ", 
               RowBox[{"En3", "(", "k", ")"}], " ", 
               SuperscriptBox[
                RowBox[{"v", "(", "k", ")"}], "2"], " ", 
               SuperscriptBox[
                RowBox[{"u", "(", "k", ")"}], "2"]}], "-", 
              RowBox[{
               SuperscriptBox[
                RowBox[{"(", 
                 RowBox[{"\[Omega]n", "+", 
                  RowBox[{"\[ImaginaryI]", " ", 
                   RowBox[{"En", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"En", "(", "k", ")"}], "+", 
                 RowBox[{"En3", "(", "k", ")"}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"v", "(", "k", ")"}], "4"]}]}], ")"}]}], 
           RowBox[{"\[Omega]n", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"En3", "(", "k", ")"}]}]}]]}], ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"]}]]},
     {
      FractionBox[
       RowBox[{"\[ImaginaryI]", " ", 
        SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", "\[Omega]n", 
        " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox[
           RowBox[{"u", "(", "k", ")"}], "4"], "-", 
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "4"]}], ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"2", " ", "\[ImaginaryI]", " ", 
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", "\[Omega]n", 
         " ", 
         RowBox[{"u", "(", "k", ")"}], " ", 
         RowBox[{"v", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox["\[Omega]n", "2"], "+", 
            SuperscriptBox[
             RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"]}]]}], 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "D", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"u", "(", "k", ")"}], " ", 
        RowBox[{"v", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Omega]n", " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "+", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}]}], ")"}]}], 
          "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"], "-", "1"}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]]},
     {
      FractionBox[
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "4"], "-", 
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "-", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "4"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "3"]}], "-", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], " ", 
              SuperscriptBox["\[Omega]n", "2"]}], "+", 
             SuperscriptBox["\[Omega]n", "2"], "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"En3", "(", "k", ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"3", " ", 
                 SuperscriptBox[
                  RowBox[{"u", "(", "k", ")"}], "2"]}], "+", 
                RowBox[{"3", " ", 
                 SuperscriptBox[
                  RowBox[{"v", "(", "k", ")"}], "2"]}], "-", "1"}], ")"}], 
              " ", "\[Omega]n"}], "-", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"En3", "(", "k", ")"}], "2"], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}]}], ")"}], " ", 
           
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n", " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{"\[ImaginaryI]", " ", 
              RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "-", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "+", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}]}], ")"}], " ", 
           
           RowBox[{"En", "(", "k", ")"}]}], "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "4"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}], "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           SuperscriptBox["\[Omega]n", "2"], " ", 
           RowBox[{"En3", "(", "k", ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "+", 
                RowBox[{"\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}]}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], "2"]}]], 
      FractionBox[
       RowBox[{"2", " ", "\[ImaginaryI]", " ", "D", " ", 
        RowBox[{"En", "(", "k", ")"}], " ", 
        RowBox[{"u", "(", "k", ")"}], " ", 
        RowBox[{"v", "(", "k", ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Omega]n", " ", 
           RowBox[{"(", 
            RowBox[{"\[Omega]n", "+", 
             RowBox[{
              RowBox[{"(", 
               RowBox[{"\[Omega]n", "+", 
                RowBox[{"2", " ", "\[ImaginaryI]", " ", 
                 RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox[
                 RowBox[{"u", "(", "k", ")"}], "2"], "+", 
                SuperscriptBox[
                 RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}]}]}], ")"}]}], 
          "-", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"], " ", 
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], "+", 
             SuperscriptBox[
              RowBox[{"v", "(", "k", ")"}], "2"], "-", "1"}], ")"}]}]}], 
         ")"}]}], 
       RowBox[{"\[Eta]", " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox["\[Omega]n", "2"], "+", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"]}], ")"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.513625175047941*^9, 3.513625182130446*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"SS1", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "1", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}], ";", 
  RowBox[{"SS2", "=", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
     RowBox[{"{", 
      RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]}]}]], "Input",
 CellChangeTimes->{{3.514208456278872*^9, 3.5142084836846733`*^9}, {
  3.5142085817526712`*^9, 3.51420861434404*^9}, {3.5142086888424063`*^9, 
  3.514208703236938*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "1"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"0", ",", "0", ",", "0"}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{3.514208708086752*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G01", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], ".", 
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
     RowBox[{
      RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}], "-", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], ".", 
     RowBox[{"Ainv", "[", 
      RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
     RowBox[{"\[Delta]", "[", "k", "]"}], ".", 
     RowBox[{
      RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}]}]}], ";", 
  RowBox[{"MatrixForm", "[", "G01", "]"}]}]], "Input",
 CellChangeTimes->{
  3.5142088016880417`*^9, {3.514208886548297*^9, 3.514208900164806*^9}, {
   3.514208946607211*^9, 3.514209010591641*^9}, {3.514209049056241*^9, 
   3.514209091968288*^9}, {3.514209142178678*^9, 3.514209144461185*^9}, {
   3.5142099264405107`*^9, 3.514209941486027*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
          RowBox[{"u", "[", "k", "]"}], " ", 
          RowBox[{"v", "[", "k", "]"}]}], 
         RowBox[{"2", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{
         FractionBox[
          RowBox[{"D", " ", 
           SuperscriptBox[
            RowBox[{"u", "[", "k", "]"}], "2"]}], "\[Eta]"], "+", 
         FractionBox[
          RowBox[{"D", " ", 
           SuperscriptBox[
            RowBox[{"v", "[", "k", "]"}], "2"]}], "\[Eta]"]}], 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
         RowBox[{"En3", "[", "k", "]"}]}]]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{
          SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"]}], 
         RowBox[{"4", " ", "\[Eta]", " ", 
          SuperscriptBox[
           RowBox[{"En", "[", "k", "]"}], "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"4", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["D", "2"], " ", "\[CapitalDelta]", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"2", " ", "\[Eta]", " ", 
         SuperscriptBox[
          RowBox[{"En", "[", "k", "]"}], "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"D", " ", 
          RowBox[{"u", "[", "k", "]"}], " ", 
          RowBox[{"v", "[", "k", "]"}]}], 
         RowBox[{"\[Eta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}]},
     {
      RowBox[{
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         RowBox[{"D", " ", 
          RowBox[{"u", "[", "k", "]"}], " ", 
          RowBox[{"v", "[", "k", "]"}]}], 
         RowBox[{"\[Eta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "+", 
       FractionBox[
        RowBox[{"D", " ", 
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{"\[Eta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{
  3.514209016280788*^9, {3.51420906694731*^9, 3.514209092641018*^9}, {
   3.514209927532535*^9, 3.514209941951771*^9}}]
}, Open  ]],

Cell[BoxData[""], "Input",
 CellChangeTimes->{{3.514209972028225*^9, 3.514209974893014*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"G00", "=", 
   RowBox[{
    RowBox[{"T0", "[", "k", "]"}], ".", 
    RowBox[{"Ainv", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
    RowBox[{
     RowBox[{"T0", "[", "k", "]"}], "\[Transpose]"}]}]}], ";", 
  RowBox[{"MatrixForm", "[", "G00", "]"}]}]], "Input",
 CellChangeTimes->{{3.514209255682699*^9, 3.514209291161439*^9}}],

Cell[BoxData[
 TagBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}]]}], 
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}]]}], "0"},
     {
      RowBox[{
       FractionBox[
        RowBox[{
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]], "-", 
       FractionBox[
        RowBox[{
         RowBox[{"u", "[", "k", "]"}], " ", 
         RowBox[{"v", "[", "k", "]"}]}], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En2", "[", "k", "]"}]}]]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"u", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"v", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]]}], "0"},
     {"0", "0", 
      FractionBox["1", 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "[", "k", "]"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}],
  Function[BoxForm`e$, 
   MatrixForm[BoxForm`e$]]]], "Output",
 CellChangeTimes->{{3.5142092697655697`*^9, 3.514209292248824*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"outOfPhaseCorrect", "=", 
   RowBox[{"I", " ", "\[Theta]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"-", "x1"}], ",", "x2"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{"x1", ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"-", "x2"}], ",", "0", ",", "0"}], "}"}]}], "}"}]}]}], ";", 
  RowBox[{"outOfPhaseCorrect2", "=", 
   RowBox[{
    RowBox[{
     RowBox[{"-", " ", 
      RowBox[{"\[Theta]", "^", "2"}]}], "/", "2"}], 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"0", ",", 
        RowBox[{"x1", "^", "2"}], ",", 
        RowBox[{"x2", "^", "2"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x1", "^", "2"}], ",", "0", ",", "0"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"x2", "^", "2"}], ",", "0", ",", "0"}], "}"}]}], 
     "}"}]}]}]}]], "Input",
 CellChangeTimes->{{3.514209794008472*^9, 3.514209794186781*^9}, {
  3.5256986008745737`*^9, 3.525698654808757*^9}, {3.525704269432912*^9, 
  3.5257043455220337`*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{"0", ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["x1", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], ",", 
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["x2", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["x1", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", 
       FractionBox["1", "2"]}], " ", 
      SuperscriptBox["x2", "2"], " ", 
      SuperscriptBox["\[Theta]", "2"]}], ",", "0", ",", "0"}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{
  3.525698656264554*^9, {3.525704325820242*^9, 3.525704346037236*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Inverse", "[", "outOfPhaseCorrect", "]"}]], "Input",
 CellChangeTimes->{{3.525698658424693*^9, 3.525698666456815*^9}, {
  3.5256987227459793`*^9, 3.525698725076063*^9}}],

Cell[BoxData[
 RowBox[{
  StyleBox[
   RowBox[{"Inverse", "::", "sing"}], "MessageName"], 
  RowBox[{
  ":", " "}], "\<\"Matrix \[NoBreak]\\!\\({\\(\\({0, \\(\\(\\(\\(-\
\[ImaginaryI]\\)\\)\\\\ x1\\\\ \[Theta]\\)\\), \\(\\(\[ImaginaryI]\\\\ x2\\\\ \
\[Theta]\\)\\)}\\)\\), \\(\\({\\(\\(\[ImaginaryI]\\\\ x1\\\\ \[Theta]\\)\\), \
0, 0}\\)\\), \\(\\({\\(\\(\\(\\(-\[ImaginaryI]\\)\\)\\\\ x2\\\\ \
\[Theta]\\)\\), 0, 0}\\)\\)}\\)\[NoBreak] is singular. \
\\!\\(\\*ButtonBox[\\\"\[RightSkeleton]\\\", ButtonStyle->\\\"Link\\\", \
ButtonFrame->None, ButtonData:>\\\"paclet:ref/message/General/sing\\\", \
ButtonNote -> \\\"Inverse::sing\\\"]\\)\"\>"}]], "Message", "MSG",
 CellChangeTimes->{3.525698725561324*^9}],

Cell[BoxData[
 RowBox[{"Inverse", "[", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"0", ",", 
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]"}], ",", 
      RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]"}]}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]"}], ",", "0", ",", 
      "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "x2", " ", "\[Theta]"}], ",", "0",
       ",", "0"}], "}"}]}], "}"}], "]"}]], "Output",
 CellChangeTimes->{3.525698725562697*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"InvG", "=", 
  RowBox[{"{", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{
      RowBox[{
       RowBox[{"I", " ", "\[Omega]"}], "-", "\[Xi]"}], ",", "\[CapitalDelta]",
       ",", "D"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"\[CapitalDelta]", ",", 
      RowBox[{
       RowBox[{"I", " ", "\[Omega]"}], "+", "\[Xi]"}], ",", "0"}], "}"}], ",", 
    RowBox[{"{", 
     RowBox[{"D", ",", "0", ",", 
      RowBox[{
       RowBox[{"I", " ", "\[Omega]"}], "+", "\[Xi]", "+", "\[Eta]"}]}], 
     "}"}]}], "}"}]}]], "Input",
 CellChangeTimes->{{3.5256987945407143`*^9, 3.525698825006369*^9}, {
  3.525698869406452*^9, 3.525698975544689*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[Xi]"}], "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ",", "\[CapitalDelta]", 
     ",", "D"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"\[CapitalDelta]", ",", 
     RowBox[{"\[Xi]", "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{"D", ",", "0", ",", 
     RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
      RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}]}], "}"}]}], 
  "}"}]], "Output",
 CellChangeTimes->{3.525698977303206*^9}]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"G0", "=", 
   RowBox[{"Inverse", "[", "InvG", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.525698979648074*^9, 3.525699007879095*^9}, {
  3.525699042041835*^9, 3.525699074902453*^9}}],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{
  "G0", ".", "outOfPhaseCorrect", ".", "G0", ".", "outOfPhaseCorrect"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.5256989912786303`*^9, 3.5256989949901133`*^9}, {
  3.52569907957017*^9, 3.525699096663993*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"-", "\[ImaginaryI]"}], " ", "x2", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"-", 
      FractionBox[
       RowBox[{
       "\[ImaginaryI]", " ", "D", " ", "x1", " ", "\[CapitalDelta]", " ", 
        "\[Theta]", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
          SuperscriptBox["\[Xi]", "2"], "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
          RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
          "-", 
          SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{"D", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
          "+", 
          RowBox[{
           RowBox[{"(", 
            RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
             SuperscriptBox["\[Xi]", "2"], "-", 
             SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]]}], 
     "+", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
         SuperscriptBox["\[Xi]", "2"], "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
         "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], 
              ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
               SuperscriptBox["\[Xi]", "2"], "-", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], "+", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
             RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
             RowBox[{
             "\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}], 
            ")"}]}], 
          RowBox[{
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}],
            "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
              SuperscriptBox["\[Xi]", "2"], "-", 
              SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
          SuperscriptBox["\[Xi]", "2"], "-", 
          SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{
      "\[ImaginaryI]", " ", "D", " ", "x2", " ", "\[CapitalDelta]", " ", 
       "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
         "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          SuperscriptBox["D", "2"]}], "-", 
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "-", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
         "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
         RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}],
         ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], 
              ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
               SuperscriptBox["\[Xi]", "2"], "-", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], "+", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
             RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
             RowBox[{
             "\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}], 
            ")"}]}], 
          RowBox[{
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}],
            "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
              SuperscriptBox["\[Xi]", "2"], "-", 
              SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
          SuperscriptBox["\[Xi]", "2"], "-", 
          SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], "+", 
  RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}], 
        "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
         RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}],
         ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
         "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
          "\[ImaginaryI]", " ", "D", " ", "x1", " ", "\[CapitalDelta]", " ", 
           "\[Theta]"}], 
          RowBox[{
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}],
            "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
              SuperscriptBox["\[Xi]", "2"], "-", 
              SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]], "-", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
             SuperscriptBox["\[Xi]", "2"], "-", 
             SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
          RowBox[{
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}],
            "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
              SuperscriptBox["\[Xi]", "2"], "-", 
              SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
          SuperscriptBox["\[Xi]", "2"], "-", 
          SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
         RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
         RowBox[{"\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}],
         ")"}]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "-", 
     FractionBox[
      RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
       SuperscriptBox[
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[CapitalDelta]"}], " ", "\[Eta]"}], "-", 
          RowBox[{"\[CapitalDelta]", " ", "\[Xi]"}], "-", 
          RowBox[{
          "\[ImaginaryI]", " ", "\[CapitalDelta]", " ", "\[Omega]"}]}], ")"}],
         "2"]}], 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         RowBox[{"D", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
         "+", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
            SuperscriptBox["\[Xi]", "2"], "-", 
            SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}], ")"}], "2"]], "+", 
     FractionBox[
      RowBox[{
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[Eta]", " ", "\[Xi]"}], "+", 
         SuperscriptBox["\[Xi]", "2"], "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "+", 
         RowBox[{"2", " ", "\[ImaginaryI]", " ", "\[Xi]", " ", "\[Omega]"}], 
         "-", 
         SuperscriptBox["\[Omega]", "2"]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{
           "\[ImaginaryI]", " ", "D", " ", "x2", " ", "\[CapitalDelta]", " ", 
            "\[Theta]"}], 
           RowBox[{
            RowBox[{"D", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], 
              ")"}]}], "+", 
            RowBox[{
             RowBox[{"(", 
              RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"-", 
                SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
               SuperscriptBox["\[Xi]", "2"], "-", 
               SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], "+", 
         FractionBox[
          RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              SuperscriptBox["D", "2"]}], "-", 
             RowBox[{"\[Eta]", " ", "\[Xi]"}], "-", 
             SuperscriptBox["\[Xi]", "2"], "+", 
             RowBox[{"\[ImaginaryI]", " ", "\[Eta]", " ", "\[Omega]"}], "-", 
             SuperscriptBox["\[Omega]", "2"]}], ")"}]}], 
          RowBox[{
           RowBox[{"D", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}],
            "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"-", 
               SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
              SuperscriptBox["\[Xi]", "2"], "-", 
              SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"D", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "D"}], " ", "\[Xi]"}], "-", 
          RowBox[{"\[ImaginaryI]", " ", "D", " ", "\[Omega]"}]}], ")"}]}], 
       "+", 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           SuperscriptBox["\[CapitalDelta]", "2"]}], "-", 
          SuperscriptBox["\[Xi]", "2"], "-", 
          SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.525698995486093*^9, 3.525699053784293*^9, 
  3.525699097424164*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.525699105578347*^9, 3.525699113095996*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Xi]", "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{
     SuperscriptBox["D", "2"], " ", 
     RowBox[{"(", 
      RowBox[{"\[Xi]", "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}]}], "+", 
    RowBox[{
     RowBox[{"(", 
      RowBox[{"\[Eta]", "+", "\[Xi]", "+", 
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       SuperscriptBox["\[CapitalDelta]", "2"], "+", 
       SuperscriptBox["\[Xi]", "2"], "+", 
       SuperscriptBox["\[Omega]", "2"]}], ")"}]}]}]]}]], "Output",
 CellChangeTimes->{3.525699113824779*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"GtGt", "=", 
   RowBox[{
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "outOfPhaseCorrect", ".", 
    RowBox[{"Gr0", "[", 
     RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "outOfPhaseCorrect"}]}], 
  ";", 
  RowBox[{"TraditionalForm", "[", 
   RowBox[{"FullSimplify", "[", "GtGt", "]"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.52570307732064*^9, 3.525703087742584*^9}, {
  3.5257031258512783`*^9, 3.52570314482915*^9}, {3.525703216778904*^9, 
  3.525703245258985*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            SuperscriptBox["x1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "4"]}], "+", 
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"(", 
                RowBox[{"\[Omega]n", "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
               SuperscriptBox["x2", "2"]}], "+", 
              RowBox[{"2", " ", 
               SuperscriptBox["x1", "2"], " ", 
               RowBox[{"(", 
                RowBox[{"\[Omega]n", "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
               SuperscriptBox[
                RowBox[{"v", "(", "k", ")"}], "2"]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox["x1", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En3", "(", "k", ")"}]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"v", "(", "k", ")"}], "4"]}], "+", 
           RowBox[{
            SuperscriptBox["x2", "2"], " ", 
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"v", "(", "k", ")"}], "2"]}]}], ")"}]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]]}], "0", "0"},
     {
      FractionBox[
       RowBox[{
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En1", "(", "k", ")"}], "-", 
          RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
        RowBox[{"u", "(", "k", ")"}], " ", 
        RowBox[{"v", "(", "k", ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "(", "k", ")"}]}], ")"}]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x1", "2"], " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], "+", 
            SuperscriptBox[
             RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], "2"]}], 
        RowBox[{
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]]}], 
      FractionBox[
       RowBox[{"x1", " ", "x2", " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], "+", 
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"]}], ")"}], "2"]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}]}]]},
     {
      FractionBox[
       RowBox[{"x1", " ", "x2", " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"En1", "(", "k", ")"}], "-", 
          RowBox[{"En2", "(", "k", ")"}]}], ")"}], " ", 
        RowBox[{"u", "(", "k", ")"}], " ", 
        RowBox[{"v", "(", "k", ")"}]}], 
       RowBox[{
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{"\[Omega]n", "+", 
          RowBox[{"\[ImaginaryI]", " ", 
           RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
          RowBox[{"En3", "(", "k", ")"}]}], ")"}]}]], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"x1", " ", "x2", " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             SuperscriptBox[
              RowBox[{"u", "(", "k", ")"}], "2"], 
             RowBox[{
              RowBox[{"En1", "(", "k", ")"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"v", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En2", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
         RowBox[{"En3", "(", "k", ")"}]}]]}], 
      FractionBox[
       RowBox[{
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            SuperscriptBox[
             RowBox[{"u", "(", "k", ")"}], "2"], 
            RowBox[{
             RowBox[{"En1", "(", "k", ")"}], "-", 
             RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"v", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "(", "k", ")"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{
  3.5257031457375107`*^9, {3.525703227804022*^9, 3.52570324594722*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", "GtGt", "]"}]], "Input",
 CellChangeTimes->{{3.525703152218587*^9, 3.525703155494779*^9}, {
  3.525703212353525*^9, 3.5257032136088543`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["x2", "2"], " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        SuperscriptBox[
         RowBox[{"u", "[", "k", "]"}], "2"], 
        RowBox[{
         RowBox[{
          RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
         RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
      FractionBox[
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"], 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
        RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}], 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
    RowBox[{"En3", "[", "k", "]"}]}]], "+", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", "k", "]"}], " ", 
           RowBox[{"v", "[", "k", "]"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", "k", "]"}], " ", 
           RowBox[{"v", "[", "k", "]"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], "2"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}]}], ")"}]}], "-", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", "k", "]"}], " ", 
           RowBox[{"v", "[", "k", "]"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}]], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "[", "k", "]"}], " ", 
           RowBox[{"v", "[", "k", "]"}]}], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}], "2"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}]]}], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"u", "[", "k", "]"}], "2"], 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En1", "[", "k", "]"}]}]]}], "-", 
        FractionBox[
         SuperscriptBox[
          RowBox[{"v", "[", "k", "]"}], "2"], 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}]}], ")"}]}]}]], "Output",\

 CellChangeTimes->{3.525703155960793*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5257031682635736`*^9, 3.52570317589554*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Omega]n", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "4"]}], "+", 
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Omega]n", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"En1", "[", "k", "]"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Omega]n", "+", 
         RowBox[{"\[ImaginaryI]", " ", 
          RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], " ", 
       SuperscriptBox[
        RowBox[{"v", "[", "k", "]"}], "4"]}], "+", 
      RowBox[{
       SuperscriptBox[
        RowBox[{"u", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          SuperscriptBox["x2", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Omega]n", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"En2", "[", "k", "]"}]}]}], ")"}]}], "+", 
         RowBox[{"2", " ", 
          SuperscriptBox["x1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Omega]n", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"En3", "[", "k", "]"}]}]}], ")"}], " ", 
          SuperscriptBox[
           RowBox[{"v", "[", "k", "]"}], "2"]}]}], ")"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"(", 
     RowBox[{"\[Omega]n", "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"En1", "[", "k", "]"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Omega]n", "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"En2", "[", "k", "]"}]}]}], ")"}], " ", 
    RowBox[{"(", 
     RowBox[{"\[Omega]n", "+", 
      RowBox[{"\[ImaginaryI]", " ", 
       RowBox[{"En3", "[", "k", "]"}]}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.5257031767506332`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"GtGt", "/.", "uvcond"}]], "Input",
 CellChangeTimes->{{3.5257033099425087`*^9, 3.525703314369258*^9}, {
  3.5257033473795967`*^9, 3.525703359090478*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{
   RowBox[{"{", 
    RowBox[{
     RowBox[{
      FractionBox[
       RowBox[{
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
          FractionBox[
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], 
             RowBox[{"En", "[", "k", "]"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "[", "k", "]"}]}]], "+", 
      RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
          SuperscriptBox[
           RowBox[{"(", 
            RowBox[{
             FractionBox["\[CapitalDelta]", 
              RowBox[{"2", " ", 
               RowBox[{"En", "[", "k", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                 RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
             FractionBox["\[CapitalDelta]", 
              RowBox[{"2", " ", 
               RowBox[{"En", "[", "k", "]"}], " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                 RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], 
         "-", 
         RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"\[Xi]", "[", "k", "]"}], 
                RowBox[{"En", "[", "k", "]"}]]}], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                 RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
            FractionBox[
             RowBox[{"1", "+", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"\[Xi]", "[", "k", "]"}], 
                RowBox[{"En", "[", "k", "]"}]]}], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{
                  RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                 RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
            FractionBox[
             RowBox[{"1", "+", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}], 
        ")"}]}]}], ",", "0", ",", "0"}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]], ",", 
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            FractionBox["\[CapitalDelta]", 
             RowBox[{"2", " ", 
              RowBox[{"En", "[", "k", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
            FractionBox["\[CapitalDelta]", 
             RowBox[{"2", " ", 
              RowBox[{"En", "[", "k", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], 
        "+", 
        RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
           FractionBox[
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
           FractionBox[
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}], 
       ")"}]}], ",", 
     RowBox[{"\[ImaginaryI]", " ", "x2", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]", " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{
            FractionBox["\[CapitalDelta]", 
             RowBox[{"2", " ", 
              RowBox[{"En", "[", "k", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
            FractionBox["\[CapitalDelta]", 
             RowBox[{"2", " ", 
              RowBox[{"En", "[", "k", "]"}], " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], 
        "+", 
        RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
           FractionBox[
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{"1", "-", 
              FractionBox[
               RowBox[{"\[Xi]", "[", "k", "]"}], 
               RowBox[{"En", "[", "k", "]"}]]}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{
                 RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
                RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
           FractionBox[
            RowBox[{"1", "+", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}], 
       ")"}]}]}], "}"}], ",", 
   RowBox[{"{", 
    RowBox[{
     FractionBox[
      RowBox[{"x1", " ", "x2", " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]], ",", 
     RowBox[{"-", 
      FractionBox[
       RowBox[{"x1", " ", "x2", " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"\[Xi]", "[", "k", "]"}], 
              RowBox[{"En", "[", "k", "]"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{
                RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
               RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
          FractionBox[
           RowBox[{"1", "+", 
            FractionBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], 
             RowBox[{"En", "[", "k", "]"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "[", "k", "]"}]}]]}], ",", 
     FractionBox[
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"\[Xi]", "[", "k", "]"}], 
             RowBox[{"En", "[", "k", "]"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
              RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
         FractionBox[
          RowBox[{"1", "+", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}]]}], "}"}]}], "}"}]], "Output",
 CellChangeTimes->{
  3.525703315081449*^9, {3.525703349609552*^9, 3.52570335956915*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.525703365138485*^9, 3.525703368556159*^9}}],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{"\[Theta]", " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           SuperscriptBox["x2", "2"], " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{"-", 
              FractionBox[
               RowBox[{
                FractionBox[
                 RowBox[{"\[Xi]", "(", "k", ")"}], 
                 RowBox[{"En", "(", "k", ")"}]], "+", "1"}], 
               RowBox[{"2", " ", 
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"En1", "(", "k", ")"}], "-", 
                  RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], 
             "-", 
             FractionBox[
              RowBox[{"1", "-", 
               FractionBox[
                RowBox[{"\[Xi]", "(", "k", ")"}], 
                RowBox[{"En", "(", "k", ")"}]]}], 
              RowBox[{"2", " ", 
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"En2", "(", "k", ")"}], "-", 
                 RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], 
            ")"}]}], 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
           RowBox[{"En3", "(", "k", ")"}]}]], "-", 
         FractionBox[
          RowBox[{
           SuperscriptBox["x1", "2"], " ", "\[Theta]", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"(", 
               RowBox[{
                SuperscriptBox["\[CapitalDelta]", "2"], "+", 
                SuperscriptBox[
                 RowBox[{"\[Xi]", "(", "k", ")"}], "2"]}], ")"}], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"En1", "(", "k", ")"}], "-", 
                 RowBox[{"En2", "(", "k", ")"}]}], ")"}], "2"]}], "+", 
             RowBox[{
              SuperscriptBox[
               RowBox[{"En", "(", "k", ")"}], "2"], " ", 
              SuperscriptBox[
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"2", " ", "\[Omega]n"}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"En1", "(", "k", ")"}]}], "+", 
                 RowBox[{"\[ImaginaryI]", " ", 
                  RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]}], 
            ")"}]}], 
          RowBox[{"4", " ", 
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{"\[Omega]n", "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]]}], ")"}]}], 
      "0", "0"},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x2", "2"], " ", "\[CapitalDelta]", " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]]}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x1", "2"], " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"(", 
             RowBox[{
              SuperscriptBox["\[CapitalDelta]", "2"], "+", 
              SuperscriptBox[
               RowBox[{"\[Xi]", "(", "k", ")"}], "2"]}], ")"}], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En1", "(", "k", ")"}], "-", 
               RowBox[{"En2", "(", "k", ")"}]}], ")"}], "2"]}], "+", 
           RowBox[{
            SuperscriptBox[
             RowBox[{"En", "(", "k", ")"}], "2"], " ", 
            SuperscriptBox[
             RowBox[{"(", 
              RowBox[{
               RowBox[{"2", " ", "\[Omega]n"}], "+", 
               RowBox[{"\[ImaginaryI]", " ", 
                RowBox[{"En1", "(", "k", ")"}]}], "+", 
               RowBox[{"\[ImaginaryI]", " ", 
                RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]}], ")"}]}], 
        
        RowBox[{"4", " ", 
         SuperscriptBox[
          RowBox[{"En", "(", "k", ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Omega]n", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
         SuperscriptBox[
          RowBox[{"(", 
           RowBox[{"\[Omega]n", "+", 
            RowBox[{"\[ImaginaryI]", " ", 
             RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]]}], 
      FractionBox[
       RowBox[{"x1", " ", "x2", " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"(", 
            RowBox[{
             SuperscriptBox["\[CapitalDelta]", "2"], "+", 
             SuperscriptBox[
              RowBox[{"\[Xi]", "(", "k", ")"}], "2"]}], ")"}], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"En1", "(", "k", ")"}], "-", 
              RowBox[{"En2", "(", "k", ")"}]}], ")"}], "2"]}], "+", 
          RowBox[{
           SuperscriptBox[
            RowBox[{"En", "(", "k", ")"}], "2"], " ", 
           SuperscriptBox[
            RowBox[{"(", 
             RowBox[{
              RowBox[{"2", " ", "\[Omega]n"}], "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En1", "(", "k", ")"}]}], "+", 
              RowBox[{"\[ImaginaryI]", " ", 
               RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]}], ")"}]}], 
       RowBox[{"4", " ", 
        SuperscriptBox[
         RowBox[{"En", "(", "k", ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], "2"], " ", 
        SuperscriptBox[
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En2", "(", "k", ")"}]}]}], ")"}], "2"]}]]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{"x1", " ", "x2", " ", "\[CapitalDelta]", " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"En2", "(", "k", ")"}]}], ")"}]}], 
        RowBox[{"2", " ", 
         RowBox[{"En", "(", "k", ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En1", "(", "k", ")"}]}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}], " ", 
         RowBox[{"(", 
          RowBox[{"\[Omega]n", "+", 
           RowBox[{"\[ImaginaryI]", " ", 
            RowBox[{"En3", "(", "k", ")"}]}]}], ")"}]}]]}], 
      RowBox[{"-", 
       FractionBox[
        RowBox[{"x1", " ", "x2", " ", 
         SuperscriptBox["\[Theta]", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            FractionBox[
             RowBox[{
              FractionBox[
               RowBox[{"\[Xi]", "(", "k", ")"}], 
               RowBox[{"En", "(", "k", ")"}]], "+", "1"}], 
             RowBox[{"2", " ", 
              RowBox[{"(", 
               RowBox[{
                RowBox[{"En1", "(", "k", ")"}], "-", 
                RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], 
           "-", 
           FractionBox[
            RowBox[{"1", "-", 
             FractionBox[
              RowBox[{"\[Xi]", "(", "k", ")"}], 
              RowBox[{"En", "(", "k", ")"}]]}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En2", "(", "k", ")"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], 
          ")"}]}], 
        RowBox[{
         RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
         RowBox[{"En3", "(", "k", ")"}]}]]}], 
      FractionBox[
       RowBox[{
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox["\[Theta]", "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{"-", 
           FractionBox[
            RowBox[{
             FractionBox[
              RowBox[{"\[Xi]", "(", "k", ")"}], 
              RowBox[{"En", "(", "k", ")"}]], "+", "1"}], 
            RowBox[{"2", " ", 
             RowBox[{"(", 
              RowBox[{
               RowBox[{"En1", "(", "k", ")"}], "-", 
               RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], "-", 
          FractionBox[
           RowBox[{"1", "-", 
            FractionBox[
             RowBox[{"\[Xi]", "(", "k", ")"}], 
             RowBox[{"En", "(", "k", ")"}]]}], 
           RowBox[{"2", " ", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{"En2", "(", "k", ")"}], "-", 
              RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}], ")"}]}]]}], 
         ")"}]}], 
       RowBox[{
        RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
        RowBox[{"En3", "(", "k", ")"}]}]]}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.525703372256114*^9, 3.5257033812334642`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"trGtGt", "=", 
  RowBox[{"Tr", "[", 
   RowBox[{"GtGt", "/.", "uvcond"}], "]"}]}]], "Input",
 CellChangeTimes->{{3.525703676096752*^9, 3.5257036920110064`*^9}}],

Cell[BoxData[
 RowBox[{
  FractionBox[
   RowBox[{"2", " ", 
    SuperscriptBox["x2", "2"], " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       FractionBox[
        RowBox[{"1", "-", 
         FractionBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], 
          RowBox[{"En", "[", "k", "]"}]]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{
            RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
      FractionBox[
       RowBox[{"1", "+", 
        FractionBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], 
         RowBox[{"En", "[", "k", "]"}]]}], 
       RowBox[{"2", " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
          RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}], 
   RowBox[{
    RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
    RowBox[{"En3", "[", "k", "]"}]}]], "+", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], "-", 
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
        FractionBox[
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
        FractionBox[
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}], ")"}]}], 
  "-", 
  RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"-", "\[ImaginaryI]"}], " ", "x1", " ", "\[Theta]", " ", 
      SuperscriptBox[
       RowBox[{"(", 
        RowBox[{
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]], "-", 
         FractionBox["\[CapitalDelta]", 
          RowBox[{"2", " ", 
           RowBox[{"En", "[", "k", "]"}], " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}], "2"]}], "+", 
     RowBox[{"\[ImaginaryI]", " ", "x1", " ", "\[Theta]", " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], "-", 
        FractionBox[
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"-", 
         FractionBox[
          RowBox[{"1", "-", 
           FractionBox[
            RowBox[{"\[Xi]", "[", "k", "]"}], 
            RowBox[{"En", "[", "k", "]"}]]}], 
          RowBox[{"2", " ", 
           RowBox[{"(", 
            RowBox[{
             RowBox[{
              RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
             RowBox[{"En1", "[", "k", "]"}]}], ")"}]}]]}], "-", 
        FractionBox[
         RowBox[{"1", "+", 
          FractionBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], 
           RowBox[{"En", "[", "k", "]"}]]}], 
         RowBox[{"2", " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
            RowBox[{"En2", "[", "k", "]"}]}], ")"}]}]]}], ")"}]}]}], 
    ")"}]}]}]], "Output",
 CellChangeTimes->{3.5257036925023623`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Residue", "[", 
  RowBox[{"trGtGt", ",", 
   RowBox[{"{", 
    RowBox[{"\[Omega]n", ",", 
     RowBox[{
      RowBox[{"-", "I"}], " ", 
      RowBox[{"En2", "[", "k", "]"}]}]}], "}"}]}], "]"}]], "Input",
 CellChangeTimes->{{3.525703910663211*^9, 3.525703945147607*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  RowBox[{
   FractionBox["1", 
    RowBox[{
     SuperscriptBox[
      RowBox[{"En", "[", "k", "]"}], "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"En1", "[", "k", "]"}], "-", 
       RowBox[{"En2", "[", "k", "]"}]}], ")"}], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{"En2", "[", "k", "]"}], "-", 
       RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]], 
   RowBox[{"\[ImaginaryI]", " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"En1", "[", "k", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En2", "[", "k", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"En2", "[", "k", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"En2", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[CapitalDelta]", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En3", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"En3", "[", "k", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En", "[", "k", "]"}], " ", 
       RowBox[{"En1", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En", "[", "k", "]"}], " ", 
       RowBox[{"En2", "[", "k", "]"}], " ", 
       RowBox[{"\[Xi]", "[", "k", "]"}]}], "-", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En2", "[", "k", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"En3", "[", "k", "]"}], " ", 
       SuperscriptBox[
        RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}]}], ")"}]}]}]}]], "Output",
 CellChangeTimes->{3.525703945722417*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.525703958767188*^9, 3.5257039622114162`*^9}}],

Cell[BoxData[
 FractionBox[
  RowBox[{"\[ImaginaryI]", " ", 
   SuperscriptBox["\[Theta]", "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      SuperscriptBox[
       RowBox[{"En", "[", "k", "]"}], "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{
         SuperscriptBox["x2", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"-", 
            RowBox[{"En1", "[", "k", "]"}]}], "+", 
           RowBox[{"En2", "[", "k", "]"}]}], ")"}]}], "+", 
        RowBox[{
         SuperscriptBox["x1", "2"], " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"En2", "[", "k", "]"}], "-", 
           RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "+", 
     RowBox[{
      SuperscriptBox["x2", "2"], " ", 
      RowBox[{"En", "[", "k", "]"}], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"En1", "[", "k", "]"}], "-", 
        RowBox[{"En2", "[", "k", "]"}]}], ")"}], " ", 
      RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
     RowBox[{
      SuperscriptBox["x1", "2"], " ", 
      RowBox[{"(", 
       RowBox[{
        RowBox[{"En2", "[", "k", "]"}], "-", 
        RowBox[{"En3", "[", "k", "]"}]}], ")"}], " ", 
      RowBox[{"(", 
       RowBox[{
        SuperscriptBox["\[CapitalDelta]", "2"], "+", 
        SuperscriptBox[
         RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], ")"}]}]}], ")"}]}], 
  RowBox[{
   SuperscriptBox[
    RowBox[{"En", "[", "k", "]"}], "2"], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"En1", "[", "k", "]"}], "-", 
     RowBox[{"En2", "[", "k", "]"}]}], ")"}], " ", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"En2", "[", "k", "]"}], "-", 
     RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]]], "Output",
 CellChangeTimes->{3.525703962862145*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"{", "zeroCond", "}"}]}]], "Input",
 CellChangeTimes->{{3.5257040482431183`*^9, 3.525704058438431*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["x2", "2"], " ", 
          RowBox[{"En", "[", "k", "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["x1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{"-", 
             RowBox[{"En", "[", "k", "]"}]}], "-", 
            RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "+", 
      RowBox[{"2", " ", 
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          RowBox[{"En", "[", "k", "]"}]}], "-", 
         RowBox[{"En3", "[", "k", "]"}]}], ")"}], " ", 
       RowBox[{"(", 
        RowBox[{
         SuperscriptBox["\[CapitalDelta]", "2"], "+", 
         SuperscriptBox[
          RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "3"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", 
       RowBox[{"En", "[", "k", "]"}]}], "-", 
      RowBox[{"En3", "[", "k", "]"}]}], ")"}]}]], "}"}]], "Output",
 CellChangeTimes->{3.525704058911035*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"%", "/.", 
  RowBox[{"{", "zeroCond3", "}"}]}]], "Input",
 CellChangeTimes->{{3.5257040620922737`*^9, 3.525704070056931*^9}}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[Theta]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox["x2", "2"], " ", 
           RowBox[{"En", "[", "k", "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["x1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Eta]", "-", 
             RowBox[{"En", "[", "k", "]"}], "+", 
             RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["x1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", 
          RowBox[{"En", "[", "k", "]"}], "+", 
          RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[CapitalDelta]", "2"], "+", 
          SuperscriptBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], ")"}]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"En", "[", "k", "]"}], "3"], " ", 
     RowBox[{"(", 
      RowBox[{"\[Eta]", "-", 
       RowBox[{"En", "[", "k", "]"}], "+", 
       RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5257040705717487`*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", "%", "]"}]], "Input",
 CellChangeTimes->{{3.5257037096744213`*^9, 3.525703735253557*^9}, 
   3.5257041041413927`*^9}],

Cell[BoxData[
 RowBox[{"{", 
  RowBox[{"{", 
   FractionBox[
    RowBox[{"\[ImaginaryI]", " ", 
     SuperscriptBox["\[Theta]", "2"], " ", 
     RowBox[{"(", 
      RowBox[{
       RowBox[{
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"(", 
         RowBox[{
          RowBox[{
           RowBox[{"-", "2"}], " ", 
           SuperscriptBox["x2", "2"], " ", 
           RowBox[{"En", "[", "k", "]"}]}], "+", 
          RowBox[{
           SuperscriptBox["x1", "2"], " ", 
           RowBox[{"(", 
            RowBox[{"\[Eta]", "-", 
             RowBox[{"En", "[", "k", "]"}], "+", 
             RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "+", 
       RowBox[{"2", " ", 
        SuperscriptBox["x2", "2"], " ", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], " ", 
        RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
       RowBox[{
        SuperscriptBox["x1", "2"], " ", 
        RowBox[{"(", 
         RowBox[{"\[Eta]", "-", 
          RowBox[{"En", "[", "k", "]"}], "+", 
          RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}], " ", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["\[CapitalDelta]", "2"], "+", 
          SuperscriptBox[
           RowBox[{"\[Xi]", "[", "k", "]"}], "2"]}], ")"}]}]}], ")"}]}], 
    RowBox[{"2", " ", 
     SuperscriptBox[
      RowBox[{"En", "[", "k", "]"}], "3"], " ", 
     RowBox[{"(", 
      RowBox[{"\[Eta]", "-", 
       RowBox[{"En", "[", "k", "]"}], "+", 
       RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]], "}"}], 
  "}"}]], "Output",
 CellChangeTimes->{3.5257037363814487`*^9, 3.525704105078436*^9}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Tr", "[", 
  RowBox[{
   RowBox[{"Gr0", "[", 
    RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", "outOfPhaseCorrect2"}], 
  "]"}]], "Input",
 CellChangeTimes->{{3.525704248049635*^9, 3.525704250797997*^9}, 
   3.525704330676504*^9}],

Cell[BoxData[
 RowBox[{
  RowBox[{"-", 
   SuperscriptBox["x1", "2"]}], " ", 
  SuperscriptBox["\[Theta]", "2"], " ", 
  RowBox[{"(", 
   RowBox[{
    FractionBox[
     RowBox[{
      RowBox[{"u", "[", "k", "]"}], " ", 
      RowBox[{"v", "[", "k", "]"}]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En1", "[", "k", "]"}]}]], "-", 
    FractionBox[
     RowBox[{
      RowBox[{"u", "[", "k", "]"}], " ", 
      RowBox[{"v", "[", "k", "]"}]}], 
     RowBox[{
      RowBox[{
       RowBox[{"-", "\[ImaginaryI]"}], " ", "\[Omega]n"}], "+", 
      RowBox[{"En2", "[", "k", "]"}]}]]}], ")"}]}]], "Output",
 CellChangeTimes->{
  3.525704251255577*^9, {3.525704331456974*^9, 3.525704349672772*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Gr0", "[", 
   RowBox[{"k", ",", "\[Omega]n"}], "]"}], ".", 
  "outOfPhaseCorrect2"}]], "Input"],

Cell[BoxData[
 FormBox[
  RowBox[{"(", "\[NoBreak]", GridBox[{
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En1", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]},
     {
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{"-", 
          FractionBox[
           SuperscriptBox[
            RowBox[{"u", "(", "k", ")"}], "2"], 
           RowBox[{
            RowBox[{"En2", "(", "k", ")"}], "-", 
            RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], "-", 
         FractionBox[
          SuperscriptBox[
           RowBox[{"v", "(", "k", ")"}], "2"], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x1", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}], 
      RowBox[{
       RowBox[{"-", 
        FractionBox["1", "2"]}], " ", 
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox["\[Theta]", "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En1", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]], "-", 
         FractionBox[
          RowBox[{
           RowBox[{"u", "(", "k", ")"}], " ", 
           RowBox[{"v", "(", "k", ")"}]}], 
          RowBox[{
           RowBox[{"En2", "(", "k", ")"}], "-", 
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}]}]]}], ")"}]}]},
     {
      RowBox[{"-", 
       FractionBox[
        RowBox[{
         SuperscriptBox["x2", "2"], " ", 
         SuperscriptBox["\[Theta]", "2"]}], 
        RowBox[{"2", " ", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"\[ImaginaryI]", " ", "\[Omega]n"}], "-", 
           RowBox[{"En3", "(", "k", ")"}]}], ")"}]}]]}], "0", "0"}
    },
    GridBoxAlignment->{
     "Columns" -> {{Center}}, "ColumnsIndexed" -> {}, "Rows" -> {{Baseline}}, 
      "RowsIndexed" -> {}},
    GridBoxSpacings->{"Columns" -> {
        Offset[0.27999999999999997`], {
         Offset[0.7]}, 
        Offset[0.27999999999999997`]}, "ColumnsIndexed" -> {}, "Rows" -> {
        Offset[0.2], {
         Offset[0.4]}, 
        Offset[0.2]}, "RowsIndexed" -> {}}], "\[NoBreak]", ")"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.525704392478953*^9, 3.5257044009821777`*^9}}]
}, Open  ]],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"FullSimplify", "[", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"(", 
        RowBox[{
         RowBox[{
          RowBox[{"-", "2"}], " ", 
          SuperscriptBox["x2", "2"], " ", 
          RowBox[{"En", "[", "k", "]"}]}], "+", 
         RowBox[{
          SuperscriptBox["x1", "2"], " ", 
          RowBox[{"(", 
           RowBox[{"\[Eta]", "-", 
            RowBox[{"En", "[", "k", "]"}], "+", 
            RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]}], ")"}]}], "+", 
      
      RowBox[{"2", " ", 
       SuperscriptBox["x2", "2"], " ", 
       SuperscriptBox[
        RowBox[{"En", "[", "k", "]"}], "2"], " ", 
       RowBox[{"\[Xi]", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Eta]", "-", 
         RowBox[{"En", "[", "k", "]"}], "+", 
         RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}], " ", 
       RowBox[{"(", 
        SuperscriptBox[
         RowBox[{"En", "[", "k", "]"}], "2"], ")"}]}]}], ")"}]}], 
   RowBox[{"2", " ", 
    SuperscriptBox[
     RowBox[{"En", "[", "k", "]"}], "3"], " ", 
    RowBox[{"(", 
     RowBox[{"\[Eta]", "-", 
      RowBox[{"En", "[", "k", "]"}], "+", 
      RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]], "]"}]], "Input",
 CellChangeTimes->{{3.5257049558147917`*^9, 3.5257049690492163`*^9}}],

Cell[BoxData[
 RowBox[{"-", 
  FractionBox[
   RowBox[{"\[ImaginaryI]", " ", 
    SuperscriptBox["\[Theta]", "2"], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{
       RowBox[{"-", 
        RowBox[{"(", 
         RowBox[{
          SuperscriptBox["x1", "2"], "+", 
          SuperscriptBox["x2", "2"]}], ")"}]}], " ", 
       RowBox[{"En", "[", "k", "]"}]}], "+", 
      RowBox[{
       SuperscriptBox["x1", "2"], " ", 
       RowBox[{"(", 
        RowBox[{"\[Eta]", "+", 
         RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}], "+", 
      RowBox[{
       SuperscriptBox["x2", "2"], " ", 
       RowBox[{"\[Xi]", "[", "k", "]"}]}]}], ")"}]}], 
   RowBox[{
    RowBox[{"En", "[", "k", "]"}], " ", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"-", "\[Eta]"}], "+", 
      RowBox[{"En", "[", "k", "]"}], "-", 
      RowBox[{"\[Epsilon]", "[", "k", "]"}]}], ")"}]}]]}]], "Output",
 CellChangeTimes->{3.525704969905815*^9}]
}, Open  ]]
},
WindowSize->{1854, 1156},
WindowMargins->{{0, Automatic}, {Automatic, 0}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
PrintingOptions->{"PaperOrientation"->"Landscape",
"PaperSize"->{1299.96, 999.7199999999999}},
Magnification:>FEPrivate`If[
  FEPrivate`Equal[FEPrivate`$VersionNumber, 6.], 1.5, 1.5 Inherited],
FrontEndVersion->"8.0 for Mac OS X x86 (32-bit, 64-bit Kernel) (November 6, \
2010)",
StyleDefinitions->"Default.nb"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[557, 20, 2209, 67, 88, "Input"],
Cell[2769, 89, 1637, 48, 70, "Input"],
Cell[CellGroupData[{
Cell[4431, 141, 440, 12, 40, "Input"],
Cell[4874, 155, 3038, 88, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[7949, 248, 409, 12, 40, "Input"],
Cell[8361, 262, 3019, 88, 86, "Output"]
}, Open  ]],
Cell[11395, 353, 2311, 63, 88, "Input"],
Cell[CellGroupData[{
Cell[13731, 420, 678, 17, 42, "Input"],
Cell[14412, 439, 990, 29, 40, "Output"]
}, Open  ]],
Cell[15417, 471, 757, 17, 40, "Input"],
Cell[16177, 490, 315, 6, 40, "Input"],
Cell[16495, 498, 1521, 43, 42, "Input"],
Cell[18019, 543, 1673, 46, 64, "Input"],
Cell[19695, 591, 833, 24, 42, "Input"],
Cell[CellGroupData[{
Cell[20553, 619, 1751, 45, 87, "Input"],
Cell[22307, 666, 2803, 81, 64, "Output"]
}, Open  ]],
Cell[25125, 750, 406, 10, 40, "Input"],
Cell[CellGroupData[{
Cell[25556, 764, 2474, 79, 131, "Input"],
Cell[28033, 845, 2475, 79, 70, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[30545, 929, 425, 11, 40, "Input"],
Cell[30973, 942, 6147, 179, 208, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[37157, 1126, 508, 12, 40, "Input"],
Cell[37668, 1140, 6399, 185, 191, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[44104, 1330, 147, 3, 40, "Input"],
Cell[44254, 1335, 830, 26, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[45121, 1366, 125, 2, 40, "Input"],
Cell[45249, 1370, 3938, 111, 136, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[49224, 1486, 217, 4, 40, "Input"],
Cell[49444, 1492, 14076, 391, 202, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[63557, 1888, 127, 2, 40, "Input"],
Cell[63687, 1892, 10372, 278, 152, "Output"]
}, Open  ]],
Cell[74074, 2173, 5014, 154, 158, "Input"],
Cell[CellGroupData[{
Cell[79113, 2331, 122, 2, 40, "Input"],
Cell[79238, 2335, 7168, 208, 314, "Output"]
}, Open  ]],
Cell[86421, 2546, 1559, 44, 66, "Input"],
Cell[87983, 2592, 1244, 28, 40, "Input"],
Cell[CellGroupData[{
Cell[89252, 2624, 214, 4, 40, "Input"],
Cell[89469, 2630, 9154, 258, 144, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[98660, 2893, 429, 10, 40, "Input"],
Cell[99092, 2905, 3145, 89, 160, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[102274, 2999, 491, 12, 40, "Input"],
Cell[102768, 3013, 1518, 45, 118, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[104323, 3063, 294, 8, 40, "Input"],
Cell[104620, 3073, 2297, 66, 144, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[106954, 3144, 162, 3, 40, "Input"],
Cell[107119, 3149, 4306, 122, 176, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[111462, 3276, 156, 3, 40, "Input"],
Cell[111621, 3281, 5702, 162, 166, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[117360, 3448, 148, 3, 40, "Input"],
Cell[117511, 3453, 1680, 54, 86, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[119228, 3512, 155, 3, 40, "Input"],
Cell[119386, 3517, 1811, 58, 89, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[121234, 3580, 504, 12, 40, "Input"],
Cell[121741, 3594, 22538, 601, 202, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[144316, 4200, 177, 3, 40, "Input"],
Cell[144496, 4205, 4078, 122, 148, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[148611, 4332, 262, 5, 40, "Input"],
Cell[148876, 4339, 145, 2, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[149058, 4346, 329, 6, 40, "Input"],
Cell[149390, 4354, 9587, 283, 342, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159014, 4642, 124, 2, 40, "Input"],
Cell[159141, 4646, 92, 1, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[159270, 4652, 139, 3, 40, "Input"],
Cell[159412, 4657, 2606, 80, 133, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[162055, 4742, 179, 3, 40, "Input"],
Cell[162237, 4747, 3592, 117, 131, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[165866, 4869, 129, 2, 40, "Input"],
Cell[165998, 4873, 2557, 85, 73, "Output"]
}, Open  ]],
Cell[168570, 4961, 761, 23, 40, "Input"],
Cell[CellGroupData[{
Cell[169356, 4988, 342, 6, 40, "Input"],
Cell[169701, 4996, 4347, 130, 116, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[174085, 5131, 281, 6, 40, "Input"],
Cell[174369, 5139, 9024, 275, 396, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[183430, 5419, 127, 2, 40, "Input"],
Cell[183560, 5423, 2042, 68, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[185639, 5496, 121, 2, 40, "Input"],
Cell[185763, 5500, 2442, 82, 84, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[188242, 5587, 139, 2, 40, "Input"],
Cell[188384, 5591, 15661, 413, 188, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[204082, 6009, 764, 22, 40, "Input"],
Cell[204849, 6033, 302, 9, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[205188, 6047, 926, 23, 40, "Input"],
Cell[206117, 6072, 10814, 301, 166, "Output"]
}, Open  ]],
Cell[216946, 6376, 92, 1, 40, "Input"],
Cell[CellGroupData[{
Cell[217063, 6381, 374, 10, 40, "Input"],
Cell[217440, 6393, 2991, 89, 140, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[220468, 6487, 1126, 34, 40, "Input"],
Cell[221597, 6523, 946, 31, 63, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[222580, 6559, 193, 3, 40, "Input"],
Cell[222776, 6564, 708, 13, 32, "Message"],
Cell[223487, 6579, 631, 18, 40, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[224155, 6602, 663, 19, 40, "Input"],
Cell[224821, 6623, 604, 18, 40, "Output"]
}, Open  ]],
Cell[225440, 6644, 221, 5, 40, "Input"],
Cell[CellGroupData[{
Cell[225686, 6653, 256, 6, 40, "Input"],
Cell[225945, 6661, 22814, 608, 859, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[248796, 7274, 131, 2, 40, "Input"],
Cell[248930, 7278, 1074, 32, 79, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[250041, 7315, 535, 13, 40, "Input"],
Cell[250579, 7330, 7742, 210, 190, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[258358, 7545, 175, 3, 40, "Input"],
Cell[258536, 7550, 4958, 144, 151, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[263531, 7699, 132, 2, 40, "Input"],
Cell[263666, 7703, 2182, 63, 73, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[265885, 7771, 177, 3, 40, "Input"],
Cell[266065, 7776, 14440, 387, 513, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[280542, 8168, 131, 2, 40, "Input"],
Cell[280676, 8172, 10568, 285, 272, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[291281, 8462, 184, 4, 40, "Input"],
Cell[291468, 8468, 6482, 185, 266, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[297987, 8658, 293, 8, 40, "Input"],
Cell[298283, 8668, 2753, 76, 103, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[301073, 8749, 133, 2, 40, "Input"],
Cell[301209, 8753, 1747, 54, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[302993, 8812, 148, 3, 40, "Input"],
Cell[303144, 8817, 1578, 48, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[304759, 8870, 149, 3, 40, "Input"],
Cell[304911, 8875, 1637, 47, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[306585, 8927, 161, 3, 40, "Input"],
Cell[306749, 8932, 1659, 47, 75, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[308445, 8984, 254, 7, 40, "Input"],
Cell[308702, 8993, 759, 24, 66, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[309498, 9022, 131, 4, 40, "Input"],
Cell[309632, 9028, 5239, 151, 148, "Output"]
}, Open  ]],
Cell[CellGroupData[{
Cell[314908, 9184, 1537, 44, 79, "Input"],
Cell[316448, 9230, 931, 29, 73, "Output"]
}, Open  ]]
}
]
*)

(* End of internal cache information *)
